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ABSTRACT 


A  FORTRAN  77  computer  code  employing  an  adaptation  of  the 
finite  differencing  algorithm  proposed  by  Brian  was  developed  for  the 
solution  of  transient  heat  conduction  problems  in  cylindrical  geome¬ 
tries.  Validation  of  code  was  accomplished  by  comparison  with  an  ana¬ 
lytic  solution  derived  for  a  model  with  symmetric,  linear  boundary 
conditions.  Accuracy  of  results  for  asymmetric  and  non-linear  bound¬ 
ary  conditions  was  determined  by  comparison  with  a  similarly  vali¬ 
dated  code  employing  the  explicit  method.  Code  effectiveness  was 
then  demonstrated  by  conducting  a  transient  temperature  analysis  for 
a  simulated  earth -orbiting  satellite.  Brian’s  method  demonstrated 
unconditional  stability  with  associated  significant  reductions  in  execu¬ 
tion  time  compared  to  the  explicit  method.  The  effects  of  discretiza¬ 
tion  error  on  the  accuracy  of  results  require  further  investigation. 
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I.  INTRODUCTION 


A  BACKGROUND 

Analysis  of  transient  heat-conduction  problems  necessarily 
involves  solution  of  the  heat  diffusion  equation.  In  the  absence  of 
internal  generation  of  energy,  this  is  represented  by 

*(*VT,-PC,§  (11) 

Although  analytic  solutions  may  be  obtained  to  certain  simple  transient 
problems  [Ref.  l:p.  212],  many  of  the  practical  problems  encountered 
by  engineers  involve  one  or  a  combination  of  nonlinearities,  complex 
geometries,  complex  boundary  conditions,  or  systems  of  coupled  par¬ 
tial  differential  equations  of  which  any  one  may  necessitate  the  use  of 
numerical  methods.  Although  Monte-Carlo  (probability  sampling)  and 
finite-element  methods  have  been  applied  to  the  solution  of  heat-con¬ 
duction  problems,  the  approximation  of  partial  derivatives  by  finite 
differences  presents  a  straightforward  and  popular  approach  [Ref.  2:p. 
471).  Two  fundamental  finite-difference  techniques  are  the  implicit 
and  explicit  methods  and  their  derivatives. 

B  PROBLEM 

The  analysis  of  transient  heat-conduction  problems  in  three 
dimensions  is  of  great  importance  to  many  fields  of  science  and  engi¬ 
neering,  but  solutions  are  often  quite  costly  in  terms  of  computational 
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effort  and  time  consumed  in  their  solution.  Numerical  solutions  to 
these  problems  frequently  tax  the  computational  and  storage  capaci¬ 
ties  of  available  computers  (Ref.  3:p.  3671. 

The  explicit  method  offers  the  benefits  of  relatively  low  storage 
requirements  and  simplicity  in  formulation,  coding,  and  execution. 
However,  it  is  only  conditionally  stable  and  is  subject  to  a  limitation  on 
the  maximum  timestep  which  may  be  employed.  If  the  maximum 
timestep  is  exceeded,  the  solution  experiences  numerically  induced 
oscillations  which  may  cause  the  solution  to  diverge  from  the  correct 
result  (Ref.  l:p.  214].  This  timestep  restriction  causes  the  explicit 
method  to  be  inefficient  in  terms  of  computational  effort  for  the  analy¬ 
sis  of  lengthy  transient  periods. 

The  implicit  method  offers  the  advantage  of  being  unconditionally 
stable  and  therefore  exempt  from  timestep  restrictions.  However,  this 
method  calculates  node  temperatures  by  the  simultaneous  solution  of 
the  nodal  heat  balance  equations.  Thus,  savings  gained  from  the  lack  of 
a  timestep  restriction  are  often  quickly  offset  by  the  increased 
computational  effort  associated  with  the  required  matrix  inversions. 

The  implicit  alternating  direction  method  (ADI)  is  an  uncondi¬ 
tionally  stable  extension  of  the  implicit  method  which  reduces  the 
number  of  required  computations  by  transforming  the  problem  into 
tridiagonal  form.  However,  a  direct  extension  of  this  method  into 
three  dimensions  becomes  only  conditionally  stable,  is  restricted  to  a 
maximum  timestep  in  a  fashion  similar  to  the  explicit  method,  and 
demonstrates  similar  shortcomings  (Ref.  4:p.  453J. 
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C  REQUIREMENT 

A  finite  difference  technique  which  is  unconditionally  stable  in 
three  dimensions  and  unencumbered  by  the  requirement  to  manipu¬ 
late  large  matrices  is  required  for  the  solution  of  transient  heat- 
conduction  problems  in  three  dimensions.  The  algorithm  proposed  by 
Brian  [Ref.  3]  offers  such  a  technique. 


D.  OBJECTIVES 

1.  Adapt  the  algorithm  proposed  by  Brian  to  the  solution  of  three- 
dimensional  transient  heat-conduction  problems  in  cylindrical 
geometries. 

2.  Evaluate  the  relative  accuracy  of  the  results  obtained  using  Brian’s 
Method  by  comparing  them  against  those  obtained  using  the 
explicit  method. 

3.  Evaluate  the  speed  of  execution  of  Brian’s  Method  relative  to  that 
of  the  explicit  method  in  terms  of  central  processing  unit  (CPU) 
seconds. 

4.  Illustrate  the  relative  benefits  derived  from  the  Brian’s  Method  by 
applying  it  to  the  solution  of  an  application  problem  involving 
long-period  transient  behavior. 
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H.  THEORY 


A  FUNDAMENTALS 

1.  Material  Properties 

The  capacity  for  energy  storage  and  rate  of  energy  transfer 
within  a  medium  are  functions  of  the  material’s  thermophysical  prop¬ 
erties.  Isotropic  materials,  such  as  metals  and  alloys,  are  uniform  in 
nature  and  their  properties  generally  demonstrate  only  negligible 
directional  and  temperature  dependence.  However,  layered  or  strati¬ 
fied  materials,  such  as  glass-reinforced  plastic  (GRP)  or  laminates,  may 
demonstrate  strong  dependence  on  both  direction  and  temperature. 
While  directional  dependence  of  properties  is  generally  linear  in 
nature,  temperature  dependence  is  strongly  nonlinear  and  will  not  be 
addressed. 

a  Heat  Capacity 

The  rate  of  change  of  energy  storage  per  unit  volume 
within  a  solid,  isotropic  medium  is  determined  by  the  product  of  its 
density  (Kg/m3),  specific  heat  (KJ/KgK),  and  the  time-rate  of  change 
of  its  temperature: 

E.=  pc,-fr  <21> 

Both  density  and  specific  heat  may  be  temperature  and/or  direction¬ 
al/  dependent  properties. 
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b.  Thermal  Conductivity 


The  thermal  conductivity  (W/mK)  is  a  transport  property 
(i.e.,  one  affecting  the  movement  of  energy)  of  the  material  and  is 
defined  in  the  x-coordinate  direction  as 


k 


x 


(2.2) 


Isotropic  materials  generally  demonstrate  relatively  constant  thermal 
conductivity  over  broad  temperature  ranges,  whereas  metallic  lami¬ 
nates  demonstrate  a  strong  directional  dependence  within  the  plane 
of  each  different  material.  Composite  materials  show  both  strong 
directional  and  temperature  dependence.  Temperature-dependent 
material  properties  will  not  be  addressed, 

c.  Thermal  Diffusivity 

The  thermal  diffusivity  (m2/s)  is  a  grouping  of  the  mate¬ 
rial  density,  specific  heat,  and  thermal  conductivity  and  represents 
the  controlling  transport  property  for  transient  heat  conduction  [Ref. 
l:p.  41] 


a  = 


k 

pcP 


(2.3) 


d.  Convection  Heat  Transfer  Coefficient 

The  convection  heat  transfer  coefficient  (W/m2K) 
encompasses  all  of  the  effects  that  influence  the  convection  mode  and 
is  dependent  upon  boundary  conditions,  surface  geometry,  the  nature 
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of  the  fluid  motion,  and  a  number  of  other  fluid  thermodynamic  and 
transport  properties  [Ref.  l:p.  81. 

e.  Properties  Affecting  Radiation 

Various  surface  properties  affect  the  radiative  character¬ 
istics  of  a  solid  material.  Directionally  integrated  or  hemispherical  val¬ 
ues  are  often  adequate  although  these  properties  are  still  strongly 
dependent  upon  the  wavelength  of  the  radiant  energy.  Where  appro¬ 
priate,  consideration  of  the  wavelength  dependence  will  be  indicated 
by  a  subscripted  Greek  letter  lamda  (X). 

(1)  Emissivity.  The  emissivity  (e)  is  a  surface  property 
representing  the  ratio  of  total  energy  emitted  by  an  actual  surface  and 
an  identical  black  surface  at  the  same  temperature.  The  emissivity  may 
be  altered  by  one  or  a  combination  of  mechanical  processes  (e.g., 
sandblasting  or  metal-spraying)  or  by  application  of  various  films  and/ 
or  coatings,  either  by  design  or  through  service  conditions. 

(2)  Surface  Properties.  Absorptivity  (a)  and  reflectivity 
(p)  are  surface  properties  representing  the  fractions  of  total  incident 
energy  which  are  respectively  absorbed  and  reflected  by  the  surface. 
For  opaque  surfaces,  the  sum  of  the  absorptivity  and  the  reflectivity 
equals  one 


a+  p=  1  (2.4) 

In  addition  to  absorption  and  reflection,  translucent  materials  allow  a 
fraction  of  incident  radiation  to  be  transmitted  through  the  material. 
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Consequently,  an  additional  property,  transmissivity  (x),  must  be 
incorporated  into  Equation  2.4,  yielding 

a+  p+  t=  1  (2.5) 

(3)  Radiation  Heat  Transfer  Coefficient.  The  radiation 
heat  transfer  coefficient  (W/m2K4)  is  a  collection  of  terms  resulting 
from  the  linearization  of  the  radiation  heat  transfer  calculation  from  a 
gray,  diffuse  surface  in  extensive  surroundings  and  is  represented  as 

hr  =  eo(T,+  Ttur)(T]+  rL)  (2.6) 

where  a  is  the  Stefan-Boltzman  Constant  (5.67  x  10  8  W/m2K)  and  Ts 
and  Tsur  are  the  absolute  temperatures  of  the  surface  and  the  sur¬ 
roundings,  respectively.  As  is  apparent  from  Equation  2.6,  this  term  is 
strongly  temperature  dependent  and  non-linear  in  nature. 

2.  Heat  Transfer  Rate 

The  heat  flux  (W/m2)  is  rate  of  heat  transfer  per  unit  surface 
area  and  may  be  represented  by 


The  heat  transfer  rate  (W/m2s)  is  thus  the  product  of  the  heat  flux  and 
the  surface  area  normal  to  the  direction  of  heat  flow  [Ref.  l:p.  4]. 
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3.  Rate  Equations 


The  three  principle  modes  of  heat  transfer  are  conduction, 
convection,  and  radiation.  The  rate  of  heat  transfer  attributed  to  each 
mode  is  described  by  the  appropriate  rate  equation. 

a  Conduction  Equation 

The  governing  equation  for  conduction  is  Fourier’s  Law, 
given  for  the  x-direction  by 


<7 


// 

x 


(2.8) 


fa.  Convection  Equation 

The  relation  governing  convection  is  known  as  Newton’s 
Law  of  Cooling  and  is  given  by  by 


q"c=  hc{T,-T„)  (2.9) 

where  Ts  is  the  surface  temperature  and  T«,  is  the  temperature  of  the 
surrounding  fluid. 

c.  Radiation  Equation 

The  maximum  flux  at  which  radiation  may  be  emitted  by 
a  surface  to  an  infinite,  black  surrounding  is  determined  by  the  Stefan- 
Boltzman  Law 


q”r=hr{T,-T„)  (2.10) 

where  Ts  is  the  surface  temperature  and  Tsur  is  the  temperature  of 
the  surrounding  enclosure  [Ref.  l:p.  9].  In  reality,  objects  exchange 
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energy  with  surrounding  enclosure  boundaries  in  accordance  with  the 
relation 


q'^'LF.A.hAT,  -  T„  )  (2.11) 

i  *  • 

where  F  is  the  view  factor  representing  the  fraction  of  the  radiation 
emitted  by  the  surface  of  interest  that  is  intercepted  by  the  ith  surface 
of  the  confining  enclosure.  Implicit  in  Equation  2.11  is  the  assumption 
that  all  surfaces  of  the  surrounding  enclosures  are  black. 

4.  Heat  Balance — The  First  Law  of  Thermodynamics 

The  temperature  at  a  given  point  may  be  determined  from 
establishment  of  an  arbitrary  control  volume  around  the  point  (Fig¬ 
ure  1)  followed  by  application  of  the  first  law  of  thermodynamics  (the 
law  of  conservation  of  energy).  Excluding  heat  which  is  generated 
within  the  confines  of  the  control  volume  (internal  generation),  this 
law  may  be  simply  stated  as 

The  rate  at  which  thermal  and  mechanical  energy  enters  a  control 
volume  minus  the  rate  at  which  this  energy  leaves  the  control  vol¬ 
ume  must  equal  the  rate  at  which  this  energy  is  stored  in  the 
control  volume.  [Ref.  l:p.  12) 

With  the  addition  of  any  heat  genetrated  internal  to  the  control  vol¬ 
ume,  the  first  law  may  represented  in  the  form  of  the  heat  balance 
equation: 


£,= 


E  + 

m 


E  - 

^  gen 


(2.12) 


9 


Figure  1.  Control  Volume 


where 

£*  =  Rate  of  energy  storage 

r* 

»  =  Rate  of  energy  gain 

p' 

oui  -  Rate  of  energy  loss 

r* 

***  =  Rate  of  energy  generation. 

R  FINITE  DIFFERENCE  APPROXIMATIONS 

1.  General  Approach 

The  numerical  solution  of  transient,  heat-conduction  prob¬ 
lems  by  digital  computer  requires  the  transformation  of  the  heat  con¬ 
duction  equation  into  a  form  which  allows  differentiation  to  be 
approximated  by  finite  differences  [Ref.  2:p.  472].  This  may  be  accom¬ 
plished  by  dividing  the  problem  into  a  number  of  discrete  points,  or 
nodes,  each  surrounded  by  an  associated  control  volume  (Figure  2(A)). 
Conducting  an  energy  balance  on  each  control  volume  yields  a  system 
of  linear  algebraic  equations  which  describes  the  temperature  field.  In 
the  absence  of  round-off  error,  the  solutions  obtained  from  finite 
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difference  approximations  tend  to  the  analytic  solution  as  the  step  size 
and  grid  spacings  tend  to  zero  [Ref.  4:p.  4491. 


(A) 


Type  1 — End -layer,  inner-surface 
Type  2— End-layer,  mid-radius 
Type  3 — End -layer,  outer-surface 
Type  4 — Mid-layer,  inner-surface 
Type  5 — Mid-layer,  mid-radius 
Type  6 — Mid-layer,  outer-surface 

Figure  2.  (A)  Reference  Grid;  (B)  Node  Types 


1 1 


cl  Geometry 

Figure  2(B)  depicts  a  right-circular  cylinder  to  which  has 
been  applied  a  polar-cylindrical  coordinate  system  and  an  arbitrary 
grid  which  divides  the  cylinder  into  a  number  of  nodes,  each  sur¬ 
rounded  by  an  associated  control  volume.  Nodes  may  be  characterized 
as  belonging  to  one  of  six  types  and  are  located  at  the  grid  intersection 
points.  Each  node  may  be  associated  with  a  specified  layer,  ring,  and 
ray. 

(1)  Layers.  Layers  lie  parallel  to  the  x-y  plane  and  are 
numbered  sequentially  beginning  in  the  x-y  plane  and  proceeding  in 
the  direction  of  the  positive  z-axis.  Layers  are  spaced  a  distance  Az 
apart.  Note  that  the  end  layers  are  in  the  plane  containing  the  ends  of 
the  cylinders. 

(2)  Rings.  Each  layer  is  divided  into  an  arbitrary  number 
of  concentric  rings  spaced  a  distance  Ar  apart.  The  node  at  the  three 
o’clock  position  when  viewed  from  above  has  been  arbitrarily  desig¬ 
nated  as  node  one.  Other  nodes  are  numbered  sequentially  in  a 
counter-clockwise  direction  from  node  one. 

(3)  Rays.  Rays  emanate  outward  from  the  origin  in  the 
plane  of  the  layers.  Nodes  lie  along  the  rays  at  intervals  of  Ar  and  are 
numbered  sequentially  from  the  inner  surface  outward. 

b.  Subscripting  Convention 

To  simplify  notation  in  the  development  of  equations,  the 
designation  of  nodal  grid  coordinates  will  follow  the  convention  con¬ 
tained  in  Table  1. 


12 


TABLE  1 

NODAL  SUBSCRIPT  CONVENTION 


Subscript 

N 

S 

E 

W 

I 

o 

e 


Location 

Northern  (upper)  neighbor 
Southern  (lower)  neighbor 
Eastern  (right)  neighbor 
Western  (left)  neighbor 
Inner  neighbor 
Outer  neighbor 
Edge 


Grid  Coordinates* 

[r,4>,(z+l)] 

[r,<Mz-D) 

[r.(0- l),z] 
lr,(<|>+l),z] 
l(r-l),<t>,z] 
[(r+l),<t>,z] 
(varies) 


*  All  grid  coordinates  are  relative  to  the  node  of  interest  when  viewed 
from  the  inside  of  the  cylinder. 


In  view  of  the  inverse  symmetric  relationship  existing 
between  equivalent  nodes  at  the  upper  and  lower  surfaces,  the  sub¬ 
script  e  will  be  used  to  designate  temperatures,  fluxes,  and  properties 
associated  with  the  end  layers,  thus  reducing  the  number  of  required 
equations  by  half.  The  reader  must  substitute  the  appropriate  subscript 
(i.e.,  N  or  S)  depending  upon  the  location  or  application  of  the  equa¬ 
tion.  This  issue  will  be  further  elaborated  upon  in  the  equation  devel¬ 
opment  example. 

c.  Superscripting  Convention 

Superscripts,  as  contained  in  Table  2,  will  be  employed 
to  indicate  at  which  timestep  a  value  is  considered. 
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TABLE  2 


NODAL  SUPERSCRIPT  CONVENTION 


Superscript 

Timestep 

Time 

n 

Current 

t 

n+1 

Next 

t  +  At 

n+1/2 

Intermediate 

t  +  At/2 

d.  Example 

Consider  the  one-dimensional  heat  conduction  problem 
represented  in  Figure  3  wherein  TE=  Tw  ,  heat  is  being  conducted  in 

the  radial  direction  only,  and  the  control  volume  is  of  unit  thickness. 


T 

Ao 


Figure  3.  One-Dimensional  Heat  Conduction  Problem 

The  appropriate  heat  balance  equation  is 

Em  =  E,-  E0  (2.13) 
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The  time-dependent  storage  term  ( Ea )  may  be  represented  by  its 
finite  difference  approximation 


£,=  pCpV 


(T  *+1  -  r") 
Ax 


(2.14)  I 

I 


where  At  is  the  step  size,  T11  is  the  node  temperature  at  the  old  (n) 
timestep,  Tn+1  is  the  node  temperature  at  the  new  (n+1)  timestep, 
and  the  volume  is  approximated  as 


V  = 


rA  r  A0 
2 


(2.15) 


The  heat  rate  in  the  radial  direction  at  the  inner  bound¬ 
ary  (  E\ )  of  the  control  volume  may  be  approximated  as 


(7,"  -  7"+1) 


(2.16) 


where 

Ai  =  {r-AL)  (2.17) 


is  the  area  of  the  control  volume  in  the  direction  of  heat  flow.  Simi¬ 
larly,  the  heat  rate  at  the  outer  boundary  may  be  approximated  as 


E—t  A  (7°'-7",1) 
C0  Krn0  Ar 


(2.18) 


where 

4o=(r+-^)ArA0 


(2.19) 
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Substituting  these  into  Equation  2.13  yields  the  finite 
difference  form  of  the  heat  equation 


A  r , 


pCprArA<p  (r"*1-7'")  k,(r-—)A<j> 


At  A  r 

kr(r+  A  r)A<t> 


{T*-  Tm) 


(2.20) 


A  r 


(t:-  t  ) 


The  steps  leading  up  to  and  including  the  formation  of  Equation  2.20 
are  common  to  both  the  explicit  and  Brian’s  methods. 

Similar  equations  may  be  obtained  for  other  nodes  and 
boundary  conditions. 

2.  The  Explicit  Method 

The  explicit  method  is  a  direct  application  of  the  general 
approach  to  finite  difference  analysis  detailed  in  the  preceding  sec¬ 
tion.  Equations  describing  the  temperature  at  the  new  time  level  are 
formed  for  each  node  by  conducting  a  heat  balance  on  the  associated 
control  volume.  Temperatures  at  the  new  time  level  may  then  be 
approximated  explicitly  by  substituting  temperatures  at  the  old  time 
level  into  the  appropriate  node  equation.  The  explicit  form  of  the  one¬ 
dimensional  heat  conduction  problem  of  the  preceding  section  may  be 
obtained  from  Equation  2.20  by  dividing  by  the  lead  coefficient  on  the 
left-hand  side,  substituting  for  the  grid  Fourier  number,  and  solving 
for  the  new  temperature,  yielding 


^  rj>  I 


+  Fo 


A  r 


(77-  n+ 


( 

A  r 


(T'-T*) 


(2.21) 
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where 


Fo  = 


a&t 
A  r2 


Defining  the  constants 


ci  = 


(r-At) 

A  r 


and 


C2  = 


Ar 


(2.22) 


(2.23) 


(2.24) 


and  grouping  the  T11  terms  outside  of  the  the  parentheses  yields 

7"*'  =  Fc(cj;  +  c/„")  +  [l  -  Fo(cl  +  ct)]T "  (2.25) 

from  which  the  stability  criterion  on  the  timestep  may  be  determined 
from  the  relation 


[1  -  Fo(Cj  +  c2)]  >  0 


(2.26) 


(Ref.  l:p.  215] 

3.  Brian's  Method 

In  Brian's  Method,  the  node  types  are  the  same  as  depicted 
in  Figure  2.  However,  the  temperature  at  the  new  time  level  is  formed 
from  a  combination  of  values  taken  from  the  old  time  level  and  three 
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directionally  dependent  temperature  arrays  formed  at  an  intermediate 
time 


Although  each  of  these  arrays  requires  a  full  complement  of  supporting 
node  equations,  the  equations  are  quite  similar  and  enjoy  a  common 
derivation  with  the  explicit  method  for  the  initial  stages  of  their 
development. 

Each  intermediate  array  is  associated  with  one  arbitrarily 
assigned  coordinate  direction  and  has  its  temperatures  denoted  by  the 
superscripting  of  one,  two,  or  three  asterisks.  Calculation  precedence 
must  follow  the  order  of  star  level  two-star  level,  three-star  level,  and 
new  temperature  arrays! 

Within  each  intermediate  calculation  process,  temperatures 
are  determined  by  solution  of  a  tridiagonal  matrix  of  coefficients  of 
nodes  lying  along  the  specified  coordinate  axis.  For  example,  equations 
for  the  r-direction  nodes  at  the  star  level  in  a  one-dimensional  heat 
conduction  problem  are  of  the  form 

AT;+  BT‘+  CT‘q=  D(Tn)  (2.23) 

Although  Brian’s  method  is  conceptually  no  more  difficult 
than  the  explicit  method,  it  involves  considerably  more  algebra  and  is 
best  illustrated  in  the  form  of  the  code  development  model  contained 
in  the  following  chapter. 
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m.  DERIVATION  OP  EQUATIONS 


A  MODEL  FOR  CODE  DEVELOPMENT 

1.  General 

In  this  chapter,  detailed  descriptions  of  the  explicit  and 
Brian’s  methods  will  be  presented  in  the  form  of  the  model  employed 
for  the  development  of  code. 

2.  Problem  Description 

Selection  of  a  model  with  simplicity  and  symmetry  of  geome¬ 
try  and  boundary  conditions  was  made  to  facilitate  error  checking  and 
the  comparison  of  results  during  code  development.  The  preliminary 
model  consisted  of  a  right-circular  cylinder  of  uniform  properties  with 
adiabatic  ends  and  specified  initial  temperature  distribution  (initial 
condition)  and  constant  inner-surface  temperature  of  zero  degrees 
Celsius.  An  arbitrary  grid  consisting  of  five  layers  in  the  z-direction, 
each  with  three  and  four  nodes  respectively  in  the  radial  and  phi- 
directions,  was  applied  to  the  cylinder  in  a  fashion  similar  to  that 
depicted  in  Figure  4.  At  time  t  =  0,  a  uniform,  constant  heat  flux  was 
applied  to  the  outer  surface.  Subsequent  modifications  to  the  model 
added  radiative  and  convective  boundary  conditions  at  all  surfaces  as 
well  as  directionally-dependent  thermal  conductivities.  Temperatures 
are  in  terms  of  the  rise  above  the  initial  temperature  ( excess 
temperature)  (Ref.  l:p.  100], 
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Specified  Temperature 


Figure  4.  Model  for  Code  Development 

a  EXPLICIT  METHOD  EQUATIONS 

The  process  for  development  of  equations  using  the  explicit 
method  is  similar  for  all  node  types.  For  illustrative  purposes,  we  will 
consider  a  Type  1  node  located  at  the  inner  edge  of  the  bottom  sur¬ 
face  of  the  cylinder  as  depicted  in  Figure  5.  Complete  equations  for  all 
node  types  are  included  as  Appendix  A  to  this  report.  Directionally 
dependent  thermal  conductivities  and  radiative  and  convective  bound¬ 
ary  conditions  are  included  in  this  development.  Heat  flow  into  and 
out  of  the  associated  control  volume  is  represented  in  Figure  6. 
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(r  +  A  r),<p ,  z 


r,(<p  +  &<p),  z  r,(0-A0),z 


A.  Plan  View 


r,0,(z  +  A 2  ) 


r,(0  +A0),  z  r,^,z  r, (<p  -  &<f> ) ,  z 


B.  Frontal  View 

Figure  5.  Bottom  Layer,  Inner  Surface  Node  Configuration 
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Figure  6.  Heat  Balance 

The  heat  balance  equation  is 


E  a  E,  En  Es  Ee  -  Ew  Ec 


(3.1) 


Application  of  appropriate  finite  difference  approximations  results  in 


►  *  m  * 


.*  _  *  (r  -  _  t  ")  (t:  +  t;  -  it  ") 

pcy—TT, — t; - +  M,  -  -  .L -  (3.2) 


Ar 


Az 


rA<p 


+  *r  Ar 


(ro  "  T  ) 
A  r 


where 


V  = 


(  r+  ^-)A  rA0  A  z 
4 


(3.3) 
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A 


o 


(r  +  4p)A0  Az 
2 


(3.4) 


4 


A  rAz 
4 


(3.5) 


(r+^)ArA0 

= - 2 -  (3.6) 

We  note  in  Equation  3.2  that  the  conduction  terms  are  evaluated 
at  time  level  n  in  order  to  allow  explicit  solution  of  the  temperatures. 
Evaluation  of  E,  and  E ,  reveals  that  these  terms  are  comprised  of  the 
sum  of  the  incident  surface  heat  flux  and  the  terms  associated  with 
heat  loss  (or  gain)  by  convection  and  radiation.  The  convection  term  is 
linear  and  may  be  approximated  as 

<?"  =  hc(T'*-T„)  (3.7) 

where  hc  is  the  convection  coefficient  at  the  appropriate  surface  and 
Too  is  the  temperature  of  the  surrounding  fluid.  The  radiation  term  is 
non-linear  and  cannot  be  directly  applied  as  a  function  of  T”*1.  A  lin¬ 
earization  of  the  radiation  equation  may  be  accomplished  by  defining 
the  radiation  coefficient  at  the  previous  (n)  timestep 

hr=eo(Tm+  rw)[(r")2  +  rL)]  (3.8) 

where 


<7"r=MT"+!-rw) 


(3.9) 
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which  reduces  the  approximation  of  the  radiation  term  to  the  first 
power  of  Tn+1  and  Tsur  is  the  temperature  of  the  surrounding  envi¬ 
ronment  to  which  it  radiates.  Thus,  the  boundary  conditions  may  be 
represented  as 

E,  =  A,[q"s  -  k,s  <r"  -  T.)  -  h,s  <r*'  -  r„,)] 

and 

E^A^q"  -  hc(TH*~  7J-  /ir/(T"+I-  7W)] 


(3.10) 


(3.11) 


where 


rA<f>A  z 


Substituting  for  Es  and  £,  into  Equation  3.2  yields 


(3.12) 


(7’-+i_  th)  ( K-r ) 

pCpv  a—  =  k,A,  +  k 


A  z 


(Th£  +  T;  -27") 
rA(j) 


(3.13) 


( j "  -  7") 

+  krA0-~-r - +  A  t[q"s  +  hCs(Tm~Tn+1)+  7"+I)] 

+  A^q",*  hc  (T„  -  7"+1)  +  hr  (T ^  -  7"+I)J 
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Substituting  for  the  volume  and  area  terms  yields 


pc, 


(r  + -^-)ArA0  Az  (j*+1  _  k,(r  +  -^~)ArA0  (T*  _  7") 


Ar 


Az 


(3.14) 


y, 

ArAz  (T*  +  7*  -  27")  Mr +~ )A0  Az  (T"  _  7”) 


rA<t> 


A  r 


(r  +  — j— )ArA0 

4 - ^ +A  (7„-7"+1)  +  /ir  (7jir  - 7"+1)] 

z  5  5 


r  A0  A  z 


[*" 


+  he(Tm-T  "+1)+  /»,;(7W- 


By  defining  the  directional  thermal  diffusivity 


«a  = 


k, 

PC, 


and  grid  Fourier  number 


Fo=-‘ 


aAr 


A  z2 


(3.15) 


(3.16) 


we  may  simplify  by  arbitrarily  dividing  by  the  lead  coefficient  of  the  z- 
direction  difference  approximation  to  obtain 
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(3.17) 


1  (J.+i  _r-)  =  (r-  _  j-)  +  . 


kfAz2 


—-(TI+K-2T-) 


2  Fo 


2  k,r(r  +  ^-)At> 


A r,  A  2 


Mr  +  ^Az 


XT - Vo  ~  T') 

AA  A  \  A  „  ? 


k,(r  +  ^-)Ar 


+  4LW's+hc  (T.-T'^  +  h,  <JW  ~Th+1)] 

Kg  s  S 


rAz2 


“ - [</',  +  hc  (T„-T*")+hAT„  -r"+1)] 

iiZL'l  A  _  /  / 


*,(/•  +  -j-)Ar 


Further  simplification  may  be  realized  by  defining  the  constants 


*#Az2 


2  kt  r(r  +  -~-)A<j)2 


k,(r  +  Ar)  Az2 

C2~  - A - 

k,(r+-£-)A  r2 


C3  = 


Az 


rA  z2 

C4  -  a  r 

k,{r+^-)Ar 


(3.18) 

(3.19) 

(3.19) 

(3.20) 
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Substituting  into  Equation  3.16  and  rearranging  to  yield 

2 k(r”‘  -T')  =  (K-T-)+ci  (7-;  +  t;  -  27")  +  C/7-;  -  T")  (3  21) 

+  c,!?",-  h «  (T_-  r"1)-  *,  (T„-  T"')] 

+  c4u"  -  AC/(r«-  T"+1)-  /ir/(rw-  r"+1)] 

Expansion  and  regrouping  of  terms  yields  the  final  form  of  the 
node  equation  for  the  temperature  at  the  (n+1)  times tep 

r+1  =  " +  2Fo  [(Ths-Th)+  cx(T*  +  T;  -2Th)+  c2(T*~  Tn)  (3.22) 

+  c3  (q"s  +  hc  T.,  +  hr  Tsw) 

s  s 

+  c^q  '  +  h‘,T~  +  hr , r~)]} 

where 

c5=  \  +  2Fo[c3(hc s  +  hr  )+  cA(hC/  +  hr  )1^  (3.23) 

Thus,  the  temperature  for  each  node  at  the  successive  time  step 
may  be  solved  for  explicitly  in  terms  of  node  temperatures  at  the  pre¬ 
vious  timestep. 

G  BRIAN  S  METHOD 

I.  Step  One  (z-Direction) 

This  section  addresses  procedures  governing  the  develop¬ 
ment  of  equations  associated  with  the  first  intermediate,  or  star-level 
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temperature  array  to  which  the  z-coordinate  direction  has  been  arbi¬ 
trarily  assigned.  Equation  3.21  may  be  applied  to  step  one  by  substi¬ 
tuting  asterisk-superscripted  variables  for  all  n+1  superscripted 
variables  and  those  n-superscripted  variables  which  lie  along  the  z- 
coordinate  direction.  Because  the  intermediate  time  step  is  half  the 
overall  value,  the  effective  grid  Fourier  Number  is  half  that  employed 
in  the  explicit  method.  Thus,  for  step  one  of  Brian’s  Method,  Equation 
3.21  becomes 

Jj (t- -  t‘) = <r;  -  n  +  c,(t;  +  t;-2t‘)+  cjr0 -  r  ■>  (3.24) 

+  c,l9 "t  -  K  IT- -  TJ  -  h,  (T- -  TJ)) 

+  cA[q"l-  he  {T*  -  TJ  -  hr  {T*  -  T,J ] 

Expanding  and  grouping  like  terms  of  starred  quantities  on  the  left- 
hand  side  of  the  equation  yields 

AT)  +  BT‘  +  CrN  =  D  (3.25) 


where 


A  =  0 


(3.26) 


B  =  1  +  Fo 


s 


+ 


(3.27) 


C  =  -  Fo 


(3.28) 
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D=  Tn+  Fo[C)(T;  +  T'  -  2T")  +  C2(T0"  -  T") 


(3.29) 


+  £3  ( <7^  +  hc  T„+  hr  T w) 

+  c4(?v/i£;r.+  /Iru] 


This  process  is  repeated  until  similar  equations  are  derived  for  each 
node  type. 

2.  Step  Two  ((^Direction) 

Derivation  of  step  two  equations  is  an  extension  of  the  proce¬ 
dures  employed  in  the  preceding  section  with  the  phi-axis  now  arbi¬ 
trarily  designated  the  two-star  coordinate  direction.  In  this  step, 
beginning  with  Equation  3.24,  which  already  contains  the  initial  step 
one  substitutions,  we  add  further  modifications  by  substituting  two- 
star  subscripted  variables  in  the  same  manner  as  before.  This  yields 

~^(T"  -  T')=(T'„  -  T')  +  c,(7-“+  T''-2T")  +  0,(7'  -  T")  (3.30) 

+  c,[«"s  -  h,  (T- -TJ-h,  (T"  -  r_)] 

+  c<[9",  -  *.,<!”  -  r.)  -  h,(T"-  r_)] 

Again,  expanding  and  grouping  like  terms  of  two-starred  quantities  on 
the  left-hand  side  of  the  equation  yields 

AT"  +  fir**  +  cr;.  =  D  (3.31) 
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where 


lb. 

II 

1 

S' 

$ 

(3.31) 

Fo^2cl  +  c2(  hc  +  hr  ^ )  -l-  c3(hc '  +  hr 

(3.32) 

C  =  -  cxFo 

(3.33) 

=  th+  fo[(t;  -  n  +  c2(t;~  n 

(3.34) 

+  c3  [q  "s  +  hc  Tm  +  hr  TIur] 

3  3  s  s 

+  c4  ( q  "  +  hc  T„+  hr  T 

This  process  is  again  repeated  until  similar  equations  are  derived  for 
each  node  type. 

3.  Step  Three  (r-Direction) 

Derivation  of  step  three  equations  is  an  identical  extension  of 
the  procedures  employed  in  the  preceding  section,  with  the  r-axis 
now  arbitrarily  designated  the  three-star  coordinate  direction.  In  this 
step,  we  begin  with  Equation  3.30  and  further  modify  by  substituting 
three-star  subscripted  variables.  This  yields 
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r")  =  (7**  -  r*)  +  q(7“  +  7;* -27**)  +  c2(7”*  -  r**>  (3.35) 


Fo 


+  ^  <r**-  rj-  hr  cr**-  rw>] 

c  * 

+  c4U",-  hc  (r”-TJ-hr  {T~-  7W)] 


Again,  expanding  and  grouping  like  terms  of  two-starred  quantities  on 
the  left-hand  side  of  the  equation  yields 

AT‘e **  +  57“*  +  C7“*  =  D  (3.36) 

where 


>1  =  0  (3.37) 

1+  Fo[c2+  c3(  hc ^  +  h,  s)+  c4(  hc i  +  hr  ) J  (3.38) 

C=~c2Fo  (3.39) 

0=7"  +  Fo[(r;  -  7*)  +  c,(7;*  +  7”  -  27**)  (3.40) 

+  c  ( q"  +  hc  Tm+  hT  7 ,J) 

J  s  s 

+  \r-)] 

This  process  is  repeated  until  similar  equations  are  derived  for  each 
node  type. 
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4.  Step  Four  (New  Temperatures) 

Step  four  is  a  direct  extension  of  the  procedures  employed  in 
the  explicit  method.  In  this  step,  the  n+1  timestep  equations  are 
derived  from  the  explicit  equations  by  substituting  starred  values  for 
the  associated  node  temperatures  for  node  under  consideration.  Con¬ 
tinuing  with  our  example,  we  substitute  into  Equation  3.22  to  obtain 

r"+1  =  -^{r"  + 2Fo[(r;  -  t')+c1(t'e'  +  t'w‘-2t“)  +  c2(r“*-r***)  (3.4i) 

+  c-}(4"s  +  he  sT„+  hr  T tur) 

+  c4(q",-  heTm-  hrT^)] 

where 

cs=l+2Fo[c  (hc  +  hr  )  +  c4( hc  +  hr  )]  (3.42) 

S  S  I  I 

Step  four  equations  for  each  of  the  six  types  of  nodes  are 
derived  in  an  identical  fashion. 

Complete  node  equations  in  the  polar-cylindrical  form  of 
Brian’s  method  are  included  in  Appendix  B  for  each  of  the  six  node 
types  identified  in  Figure  2. 
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IV.  CODE  DEVELOPMENT 
A  ANALYTIC  SOLUTION 

Analytic  solutions  to  the  model  described  in  Chapter  III,  para¬ 
graph  A.2,  were  obtained  for  the  range  of  zero  to  300  seconds  in  five- 
second  increments.  The  calculations  of  eigenvalues  and  the  resulting 
solutions  were  made  using  MATHCAD  V2.0  on  an  INTEL  80386-based 
personal  computer.  The  calculated  eigenvalues  were  verified  with  tab¬ 
ular  results  [Ref.  5]  and  those  obtained  by  an  appropriate  IMSL 
subroutine  [Refs.  6-10[.  Equations  describing  the  complete  solution 
are  contained  in  Appendix  C. 

BL  EXPLICIT  METHOD 

1.  Requirements 

The  coding  of  the  explicit  method  is  relatively  straightfor¬ 
ward  and  subject  to  only  two  notable  requirements: 

•  That  the  selected  timestep  must  not  exceed  the  theoretical 
maximum,  and 

•  That  each  node  be  considered  for  temperature  calculation  once 
per  timestep. 

2.  General  Procedure 

a  Timestep  Restriction 

The  maximum  allowable  timestep  varies  with  control 
volume  dimensions.  Exceeding  the  allowable  timestep  for  any  one 
node  will  result  in  the  eventual  loss  of  stability  of  the  entire  system. 
The  rapidity  with  which  this  occurs  is  a  function  of  the  affected  node's 
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significance  in  the  path  of  the  dominating  heat  flux.  Consequently,  a 
maximum  timestep  must  be  determined  for  each  node  type  (Figure  2) 
and  the  most  restrictive  taken  as  the  limiting  value.  This  was  effected 
through  use  of  the  subroutine  STABIL,  which  calculated  maximum 
allowable  timestep  for  each  node-type  and  returned  the  most  restric¬ 
tive  as  the  argument  DTMAX.  A  listing  of  equations  defining  stability 
requirements  for  each  node  type  is  contained  as  Appendix  D. 
b.  Indexing 

The  method  by  which  incrementation  through  the  grid 
system  is  implemented  is  entirely  arbitrary  as  long  as  the  temperature 
is  calculated  once  per  timestep  for  each  node  on  the  grid.  In  systems 
with  a  dominant  heat  flux,  convergence  will  occur  more  quickly  if  the 
dominant  direction  is  incremented  first.  Appendix  E  contains  the 
explicit  method  code  as  developed  for  this  study.  A  polar-cylindrical 
coordinate  system  was  arbitrarily  applied  with  the  z-axis  aligned  with 
the  central  axis  of  the  cylinder.  Indexing  commenced  at  the  inner 
edge  of  the  bottom  surface  and  proceeded  up  the  z-coordinate  to  the 
upper  surface.  The  grid  was  then  indexed  in  <>,  followed  by  r,  until  the 
entire  grid  had  been  covered,  at  which  time  the  old  temperature 
matrix  was  replaced  by  the  new  temperature  matrix,  the  time  counter 
indexed  by  At,  and  the  process  repeated  until  the  end  of  the  desired 
period  of  evaluation  was  reached. 


34 


C  BRIAN  S  METHOD 
1.  Requirements 
a  Timestep 

The  timestep  may  be  selected  as  befits  the  duration  of 
the  analysis  and  the  expected  temperature  gradients.  However,  the 
discretization  error  is  a  function  of  the  square  of  the  timestep.  On  the 
other  hand,  the  property  of  unconditional  stability  allows  the  flexibility 
to  initially  choose  a  large  timestep  for  macro-analysis  followed  by 
application  of  a  smaller  timestep  for  a  detailed  look  at  regions  of 
interest  (e.g.,  an  area  where  a  predefined  threshold  is  exceeded). 

Zx  Indexing 

A  separate  temperature  matrix  must  be  developed  for 
each  coordinate  direction  at  the  level  of  the  intermediate  timestep. 
Due  to  this  directional  nature,  the  indexing  requirements  are  more 
complex  and  restrictive.  Once  assignment  of  a  coordinate  axis  to  an 
intermediate  matrix  (e.g.,  star-level)  has  been  made,  the  convention 
must  be  adhered  to  for  the  duration  of  the  timestep.  One  acceptable 
method  for  indexing  is  outlined  below  and  the  companion  code  is 
included  as  the  STEP( #)  subroutines  to  the  Brian’s  Method  code  con¬ 
tained  in  Appendix  F. 

(1)  Star  Level  (z-Cirection).  The  z-coordinate  direction 
was  arbitrarily  assigned  to  the  star-level  intermediate  matrix. 
Consequently,  equations  were  developed  for  nodes  lying  along  the  z- 
axis  in  the  fashion  described  in  Section  C  of  Chapter  III.  Appropriate 
indexing  was  accomplished  by  designating  an  arbitrary  node  on  the 
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inner  ring  of  the  bottom  surface  of  the  cylinder  (Figure  7)  as  a  node  of 
reference  (node  1).  An  equation  similar  to  Equation  3.25  was  devel¬ 
oped  for  this  first  node  and  the  values  of  the  A,  B,  C,  and  D  coefficients 
calculated  and  stored  in  four  associated  vectors.  The  pointer  was  then 
indexed  in  the  z-direction  to  select  the  node  immediately  above 
node  1  (i.e.,  the  northern  neighbor  when  developing  the  equation  for 
node  1).  The  process  was  repeated  for  the  second  node  and  all  other 
nodes  lying  on  the  selected  z-axis 


Figure  7.  Star-Level  Indexing  Direction 

When  the  values  of  the  coefficients  for  the  last  node  had  been  calcu¬ 
lated  and  stored  in  the  appropriate  vectors,  a  tridiagonal  matrix  solver 
was  called  to  simultaneously  solve  the  system  of  equations.  The  resul¬ 
tant  node  temperatures  were  then  saved  in  the  star-level  intermediate 
matrix  and  the. pointer  indexed  to  the  next  adjacent  node  in  the 
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counter-clockwise  ^-direction.  Note  that  at  this  point,  indexing  in 
either  the  radial  or  the  ^-direction  would  have  been  equally  appropri¬ 
ate.  However,  once  chosen,  the  specified  direction  must  be  adhered  to 
throughout  the  immediate  timestep. 

(2)  Two-Star  Level  (^-Direction).  Because  the  rings  asso¬ 
ciated  with  the  ^-direction  have  neither  a  beginning  nor  an  end,  one 
node  must  be  arbitrarily  defined  as  a  reference  node.  Using  node  1 
from  the  one-star  level  and  working  in  a  counter-clockwise  direction 
(Figure  8),  the  values  of  the  coefficients  for  each  node  along  the  cho¬ 
sen  ring  were  calculated  and  temporarily  stored  in  suitable  vectors. 
The  resultant  system  of  equations  for  nodes  in  the  ^-direction  was  of 
the  form 


Figure  8.  Two-Star  Level  Indexing 
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(4.1) 


which  is  not  tridiagonal  To  achieve  tridiagonality,  the  ring  was  cut  at 
the  reference  node.  The  resulting  coefficient  matrix  was  then  of  the 
form 

\bx  -  a,)  c, 

b2 

0  ^ 

0  0 

Node  temperatures  were  then  obtained  by  applying  a  suitable  tridiago¬ 

nal  matrix  solver  [Ref.  4:p.  44 1J  and  stored  in  the  two-star  intermedi¬ 
ate  level  matrix.  The  pointer  was  then  incremented  to  the  node 
adjacent  to  node  1  in  the  r-direction  and  the  process  repeated.  Upon 
completion  of  the  first  layer  calculations,  the  pointer  was  indexed  in 
the  positive  z-direction  and  the  process  repeated  until  all  two-star 
level  temperatures  have  been  calculated. 

(3)  Three-Star  Level  (r-Direction).  Construction  of  the 
three-star  temperature  matrix  was  accomplished  in  a  fashion  similar 
to  the  one-  and  two-star  level  procedures  (Figure  9).  Beginning  at  the 
reference  node,  the  values  of  the  node  coefficients  were  calculated 
and  temporarily  stored  in  suitable  vectors.  When  the  coefficients  for 
the  last  node  on  the  selected  ray  had  been  caluclated  and  stored,  the 
tridiagonal  matrix  solver  was  applied  to  the  system  of  equations,  the 


0 


0 

0 

C3 

(J>4  -  c4 ) 


(4.2) 
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resultant  node  temperatures  written  to  the  three-star  temperature 
array,  the  pointer  indexed  to  the  next  adjacent  ray  in  the  counter¬ 
clockwise  direction,  and  the  process  repeated  until  all  node  tempera¬ 
tures  were  calculated  for  the  layer.  The  pointer  was  then  indexed  in 
the  positive  z-direction  until  all  three- star  level  temperatures  had 
been  calculated. 


Figure  9.  Three-Star  Indexing 


(4)  New  Temperature  Array  (n+1  Level).  When  all  inter¬ 
mediate  matrices  had  been  developed,  new  node  temperatures  were 
calculated  in  terms  of  the  three  intermediate  temperature  arrays  and 
the  array  of  temperatures  at  the  previous  (old)  timestep  in  accordance 
with  the  discussion  in  paragraph  4  of  Chapter  III.  The  choice  of 
indexing  direction  at  this  point  was  arbitrary,  so  the  method  applied 
to  the  star  level  was  repeated.  It  must  be  noted  that  the  new  node 
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temperatures  must  be  stored  in  a  separate  (new-temperature)  array 
until  all  node  temperatures  have  been  calculated.  Upon  completion  of 
the  calculations,  the  new  temperature  array  was  printed  or  stored 
(when  appropriate),  copied  onto  the  old  temperature  array,  the  time 
counter  indexed,  and  the  entire  process  repeated  until  the  limit  of  the 
period  of  evaluation  was  reached. 

D.  EXECUTION  TIMEKEEPING 

The  codes  for  both  the  explicit  method  and  Brian’s  Method  were 
of  common  origin,  had  nearly  identical  main  codes,  and  shared  com¬ 
mon  input/ output  and  utility  subroutines.  The  codes  were  organized 
such  that  the  calculations  unique  to  the  specific  method  employed 
were  segregated  into  a  single,  cohesive  block  in  the  form  of  one  or 
more  subroutines.  A  timing  utility  which  allowed  placement  within  the 
code  of  pointers  to  initiate  and  stop  CPU  timekeeping  was  employed 
to  measure  the  execution  times  of  each  method  for  each  example  or 
application  tested.  Among  other  places,  pointers  were  placed  at  the 
entry  to  and  the  exit  from  the  respective  method-specific  subroutine 
blocks.  Benchmark  runs  exclusive  of  I/O  calls  were  conducted  for  each 
method  during  the  validation  process.  Subsequent  runs  involving 
printed  or  stored  output  were  structured  such  that  required  I/O  han¬ 
dling  instructions  were  common  to  each  code  to  allow  accurate  com¬ 
parison  of  relative  speeds. 
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V.  VALIDATION 


A  INITIAL  CODE 

1.  General  Procedure 

To  simplify  code  development,  initial  forms  of  the  codes  for 
both  the  explicit  method  and  Brian’s  Method  were  developed  without 
including  convection  or  radiation.  Validation  for  both  methods  was 
accomplished  by  solving  for  the  temperature  distribution  within  the 
cylinder  described  in  paragraph  A.2  of  Chapter  III,  comparing  results 
with  the  analytic  solution  and  calculating  the  percentage  error.  Upon 
achievement  of  satisfactory  results,  the  initial  codes  were  expanded  to 
encompass  the  effects  of  both  convection  and  radiation.  Validation  of 
the  core  of  this  revised  code  was  accomplished  by  setting  appropriate 
convective  and  radiative  coefficients  to  zero  and  repeating  the  initial 
validation  procedure  with  the  revised  code. 

2.  Time  Incrementation 

Initial  runs  were  conducted  using  a  fixed  time  step  of  0.1 
second.  Following  initial  data  collection,  additional  runs  were  con¬ 
ducted  to  determine  operating  limits  for  both  methods.  During  this 
phase,  Brian’s  method  was  tested  and  validated  using  constant  time 
increments  in  the  range  from  0.01  to  100  seconds  and  included  a  log¬ 
arithmically  increasing  time  step  arrangement  summarized  in  Table  3. 


41 


TABLE  3 


VARIABLE  TIME  STEP  EMPLOYMENT 

RANGE  (SEC) 

TIME  STEP  (SEC) 

0.1-1.0 

0.1 

1.0-10.0 

1.0 

10.0-100 

10.0 

100-300 

100.0 

Additional  runs  were  conducted  using  a  varying  time  step  in  which  the 
final  step  size  was  limited  to  20  seconds. 

R  APPLICATION  CODE 

No  analytic  solution  was  available  for  a  cylinder  with  convective 
and  radiative  boundary  conditions.  Consequently,  the  application  codes 
may  not  be  considered  fully  validated.  A  comparison  of  results  was 
obtained  by  solving  the  application  example  with  both  methods  and 
comparing  the  results  point-for-point  against  each  other  in  the  form  of 
a  percentage  disagreement.  All  combinations  of  heat  flux  and  boundary 
conditions  considered  are  summarized  in  Table  4. 
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TABLE  4 


SUMMARY  OF  APPLIED  BOUNDARY  CONDITIONS 


Boundary 


Class 

Inner 

Outer 

Upper 

Lower 

I 

9 

R 

R 

R 

II 

9 

R9 

R 

R 

III 

9 

R9 

R9 

R 

IV 

9 

R9 

R 

R9 

V 

9 

R9 

R9 

R9 

VI 

9 

R9.H 

R 

R 

VII 

9 

R9 

R.H 

R 

VIII 

9 

R9 

R 

R,H 

IX 

9 

R9 

R.H 

R.H 

X 

9 

R.9.V1 

R 

R 

XI 

9 

R9 

R.V2 

R 

XII 

9 

R9 

R 

R,V3 

XIII 

9 

R9 

R,V2 

R,V3 

XIV 

9 

R.9.V1 

R,V2 

R.V3 

XV 

9 

R9 

R,V2 

R,V2 

XVI 

9 

R9 

R,V3 

R,V3 

Where: 

Q  =  Constant,  uniform  surface  heat  flux 
R  =  Radiation  to  extensive,  black  surroundings 
H  =  Convection  from  surface 
VI*  =  Periodic,  uniform  surface  heat  flux  1 
V2*  =  Periodic,  uniform  surface  heat  flux  2 
V3*  =  Periodic,  uniform  surface  heat  flux  3 


*  As  described  in  Appendix  G. 
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VI.  RESULTS 


A  DEFINITIONS 

1.  Convergence 

On  validation  runs,  calculated  values  were  considered  to  have 
converged  when  the  net  remaining  change  in  the  value  comprized  less 
than  one  percent  of  the  analytic  solution  for  the  given  time  step.  For 
comparison  runs,  values  were  considered  to  have  converged  when 
their  difference  comprised  less  than  one  percent  of  the  value  of  the 
smaller  of  the  two  numbers. 

2.  Steady-State 

A  condition  of  steady-state  was  considered  to  have  been 
reached  when  the  net  remaining  change  in  a  temperature  comprized 
less  than  one  percent  of  the  final  steady-state  result  for  single  tran¬ 
sient  evaluation. 

R  VALIDATION 

1.  Analytic  Solution 

The  analytic  solution  converged  to  steady-state  at  300  sec¬ 
onds.  Consequently,  all  validation  runs  were  limited  to  300  seconds 
duration  to  economize  on  analysis  time. 

2.  Explicit  Method 

The  theoretical  limit  on  the  maximum  time  step  allowed  for 
the  geometry  selected  was  approximately  0.395  seconds,  which  did 
not  lend  itself  to  convenient  comparisons  with  the  analytic  results. 
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The  explicit  method  was  validated  using  a  numerically  convenient 
time  step  of  0.1000  second  and  converged  with  the  analytic  result 
within  four  seconds  of  the  start  of  the  transient  cycle  (Figure  10). 
Total  execution  time  was  40.37  seconds  for  a  ten  (radial)  by  four  (<j>)  by 
five  (z)  grid.  The  observed  error  at  the  end  of  the  300-second  evalua¬ 
tion  period  was  on  the  order  of  0.009  percent.  For  processing  speed 
comparison  runs,  the  maximum  theoretical  timestep  was  employed 
and  demonstrated  a  minimum  execution  time  of  10.53  CPU  seconds. 
Due  to  the  odd  step  size,  no  comparison  of  relative  accuracy  was  made. 

3.  Brian’s  Method 

Brian’s  method  was  initially  limited  to  a  fixed  timestep  of  0.1 
second  for  the  validation  process  to  allow  a  relative  speed  comparison 
with  the  explicit  method.  While  convergence  times  and  observed 
errors  were  comparable  (Figures  10,  11,  and  12),  the  explicit  method 
demonstrated  a  significant  speed  advantage  over  Brian’s  Method  for 
equivalent  timesteps  (Table  5).  This  situation  was  dramatically 
reversed  when  the  logarithmically  increasing  timestep  arrangement 
(Table  3)  was  employed  and  resulted  in  an  execution  speed  of  2.53 
CPU  seconds,  which  comprised  a  410  percent  advantage  over  the 
optimum  result  of  the  explicit  method  (Table  6). 

C  FOLLOW-ON  TESTING 

Upon  conclusion  of  the  validation  runs  and  speed  comparisons,  a 
variety  of  boundary  conditions  with  easily  predictable  effects  were 
applied  to  allow  observation  of  system  response  (Table  4).  The  follow¬ 
ing  general  observations  were  made. 
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Figure  10.  Percentage  Error  of  Explicit  Code  as  Compared 
to  Analytic  Results  and  Plotted  Versus  Time 


TIME  (SEC) 


Figure  1 1 .  Percentage  Error  of  Brian’s  Code  as  Compared 
to  Analytic  Results  and  Plotted  Versus  Time 


Figure  12.  Comparison  of  Brian  vs.  Explicit  Validation  Results 
Expressed  as  a  Percentage  Difference 


TABLE  5 

VALIDATION  RESULTS — FIXED  0.1  SEC.  TIMESTEP 


10  x  4  x  5  GRID 
300  SEC  TRANSIENT 


RESULT 

EXPLICIT 

BRIANS 

STEP  SIZE 

0.1  SEC 

0.1  SEC 

CPU  TIME 

40.37  SEC 

223.24  SEC 

ERROR  AFTER 

0.1% 

15.188% 

20.308% 

1% 

1.247% 

1.668% 

2% 

0.612% 

0.814% 

10% 

0.110% 

0.183% 

100% 

0.009% 

0.009% 

CONVERGENCE 
(<1  %  ERROR) 

3-4  SEC 

4-5  SEC 

SPEED  ADVANTAGE:  EXPLICIT  (553  %) 

I 
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TABLE  6 

VALIDATION  RESULTS— LOG-VARIABLE  TIMESTEP 


BRIAN’S  METHOD 
VARIABLE  STEP  SIZE 


TIME  (SEC) 

0.1-1.0 

1.0-10 

10-100 

100-300 


STEP  SIZE  (SEC) 

0.1 

1.0 

10 

20 


%  TRANSIENT  %  ERROR  %  IMPROVEMENT* 


0.1  20.308 

1.0  1.446 

10.  -0.057 

100.  0.01 


0.00 

13.3 

68.8 

-22.2 


CPU  TIME:  2.53  SEC 


|  SPEED  ADVANTAGE  :  BRIAN’S  (416  %) 

*  Explicit  method  with  optimum  time  step. 


1.  Symmetric  Boundary  Conditions 

For  both  radially  and  axi-symmetric  boundary  conditions,  the 
results  of  both  methods  rapidly  converged  with  each  other  within  the 
first  three  percent  of  the  transient  cycle. 

2.  Asymmetric  Boundary  Conditions 

When  asymmetric  boundary  conditions  were  applied,  large 
differences  were  observed  at  surfaces  nearest  the  surface  of  applica¬ 
tion.  These  differences  were  eliminated  by  apllication  of  a  finer  grid 
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size  in  the  direction  of  principal  flux  and  are  thus  attributed  to  discre¬ 
tization  errors  due  to  the  generally  coarse  nature  of  the  applied  grid. 

D.  APPLICATION  EXAMPLE 

A  satellite  thermal  analysis  problem  (Appendix  G)  was  selected  as 
offering  a  practical  example  of  a  system  subjected  to  long-period 
steady-state  transient  behavior.  Figure  13  presents  a  graphical 
comparison  of  the  results  of  both  methods  for  the  initial  3000  seconds 
of  the  first  transient  cycle.  Figure  14  exhibits  the  thermal  response  of 
selected  nodes  as  calculated  by  Brian’s  Method  for  the  initial  10  tran¬ 
sient  cycles  of  the  application  example. 
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SATELLITE  TEMPERATURE  PROFILE 

(BRIAN  VS  EXPLICIT) 


I  i  I  I  I - 1 
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Figure  13.  Graphical  Comparison  of  Brian's  Method  and  the  Explicit  Method 
for  the  Initial  3,000  Seconds  of  the  First  Transient  Cycle  of  the  Application  Problem 


SATELLITE  TEMPERATURE  PROFILE 

(BRIAN  -  10  ORBIT) 


Figure  14.  Thermal  Response  of  Selected  Nodes  as  Calculated  by  Brian’s 
Method  for  the  Initial  10  Transient  Cycles  of  the  Application  Problem 


vn.  CONCLUSIONS  AND  RECOMMENDATIONS 

A  CONCLUSIONS 

1.  Adaptability 

Brian’s  Method  is  readily  adaptable  to  cylindrical  geometries. 
However,  compensation  must  be  made  for  the  lack  of  tridiagonality  of 
the  coefficient  matrix  when  calculating  intermediate  temperatures  in 
the  phi-direction. 

2.  Relative  Accuracy 

For  symmetric  boundary  conditions,  Brian’s  Method  delivers 
accuracy  comparable  to  the  explicit  method.  Convergence  is  negligibly 
slower  than  that  observed  for  the  explicit  method. 

3.  Relative  Execution  Speed 

Brian’s  Method  offers  distinct  advantages  over  the  explicit 
method  for  systems  demonstrating  periodic  steady-state  temperature 
response,  and  for  those  systems  with  extended  single  transient  cycles 
whose  geometry  makes  the  explicit  timestep  limitation  overly  restric¬ 
tive.  For  some  geometries,  Brian’s  method  is  slower  than  the  explicit 
method  and  is  not  recommended. 

4.  Relative  Benefits 

The  principal  benefit  of  Brian’s  Method  is  its  unconditional 
stability  and  associated  freedom  from  timestep  restrictions.  This 
allows  the  user  to  apply  a  coarse  grid  and  timestep  to  allow  rapid 
coarse  analysis  with  the  ability  to  adjust  the  step  size  downward  as  the 
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situation  warrants.  However,  the  relative  advantages  of  the  unre¬ 
stricted  timestep  must  be  carefully  considered  against  the  substantial 
increase  in  algebra  and  code  requirements. 

R  RECOMMENDATIONS 

1.  Adaptation  of  Brian’s  Method  FORTRAN  Code  to  C  Pro¬ 
gramming  Language 

a  Background 

The  large  storage  and  calculation  requirements  associ¬ 
ated  with  finite  difference  approximations  of  transient  heat  conduc¬ 
tion  problems  have  historically  relegated  their  analysis  to  the  realm  of 
the  mainframe  computer.  However,  recent  developments  in  micro¬ 
processor  technology  have  dramatically  improved  the  storage  capabil¬ 
ity  and  execution  speeds  of  personal  computers  (PCs).  Consequently, 
increasing  amounts  of  engineering  analysis  and  design  are  being  con¬ 
ducted  on  these  devices  at  significant  cost  reductions.  In  research 
being  conducted  under  the  auspices  of  the  Electrical  and  Computer 
Science  Department  at  the  Naval  Postgraduate  School,  FORTRAN 
codes  involving  large  numbers  of  repetetive  calculations  or  iterations 
have  been  demonstrated  to  experience  significant  improvements  in 
execution  speed  when  converted  to  the  C  programming  language  prior 
to  execution  on  a  personal  computer  [Ref.  111. 
b.  Recommendation 

It  is  strongly  recommended  that  research  be  conducted 
to  investigate  the  feasibility  of  and  limitations  on  the  conduct  of  tran¬ 
sient  heat  conduction  analysis  on  personal  computers  employing  a  C 


53 


programming  language  adaptation  of  the  Brian’s  Method  FORTRAN 
code. 

2.  Incorporation  of  the  Analysis  of  Directional  and  Time-Depen¬ 
dent  Properties  in  Brian’s  Method 

a.  Background 

Composites  demonstrate  strong  directional  and 
temperature  dependent  thermal  properties  and  are  being  rapidly 
assimilated  into  many  engineering  applications. 

b.  Recommendation 

It  is  recommended  that  additional  research  be  con¬ 
ducted  to  develop  procedures  for  the  incorporation  of  directional  and 
time-dependent  thermal  properties  into  Brian’s  Method. 
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APPENDIX  A 


NODE  EQUATIONS  FOR  EXPLICIT  METHOD 
A  TYPE  1  NODES— END  LAYERS,  INNER  SURFACE 

T"+1  =-^{Tn +2Fo[(XH.+TH)+cl(T'lE  +  THw-2T'1) 

+  c2(7;-7") 

+  +  hc  T„  +  hr  T w) 

€  € 

+  ca(<f,+hcT.  +  h,T„) J} 

where 

kf  A  z2 

2ktr(r+  —1)A02 


kr(r  +  ~^)Az2 
k,(  r  +  -^p)A  r2 


c4  = 


rAz2 


k,(  r  +  ^~)A  r 
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cs  =  1  +  2  Fo  | c3(hC'  +  hr)  +  c4(he  i  +  h  ,^)J 

K  =e.a(T'l+Tnr)[{T’>)2+TlurT] 

€ 

hr=e,0  (.T'  +  T^iiT'f  +  T^l 

BL  TYPE  2  NODES— END  LAYERS,  MID-RADII 

t"+1  =  ±  {r*  +  2  fo[(t;  -  r")  +  cst;  +  K~  2r") 
+  c2(.t;-th ) 

+  ci(TH0~TH) 

+  c4{<f't  +  hcTm  +  hrTM)\} 

where 

£#A  z2 

C'  ~  2jk,  r2#2 

k  ,(r-^)Az2 
Cz  2k,  r A? 


kr{r+±f)  Az2 
2k,rArx 

I 
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c5  =  1  +  2Fo[c4(/ic<  +  ^)J 
hT  =  e,o(T'  +  T „)[&’?+  tJ\ 

C  TYPE  3  NODES— END  LAYERS.  OUTER  SURFACE 

t”+1  =  t; i7" +  2Fo  W <  -  T ") + c i  (r£ +  K  - 2T ") 

+  c2(r;-r") 

+  c  ((/'  +/tc  T~  +  hr  Ttur) 

J  «  « 

+  c<(«'0+*,/.  +  A,/«r)J} 

where 

Jfc,A  z2 

2k,(r~  ~-)rA(f>2 

k,(r  -  ■~r" )Az2 

C2= - £ - 

^(r-^)Ar2 
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rAz1 

c  4  —  a  r 

k,(r-^)Ar 

c 5  =  1  +  2 Fo  [cjCA^  +  hr)+  c4(hCo+  hr)\ 

hrt  =  e/7  (T"+7'w)[(rV+rw2J 
hr  =  e  o  (r*  +  rw )  [(r")2  +  rw  2J 

(9 


D.  TYPE  4  NODES— MID-LAYERS,  INNER  SURFACE 

r"+1  =  7-  {t"  +  Fo[(r;  +  t)  -  2 r")  +c1(r^  +  r’  -  2 r") 

4 

+  c2(r;-r-) 

+  c,(‘f ,  +A,  T.  +  *,T„)]) 

where 

Az 2 

Ci~  l  ,  jA  Tx  A  ,2 

*,  r(r+  -^-)A0 

2ir(r+  ~)Az2 
*,(r+^)Ar2 
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C3  = 


2rAz2 


kt(r+^)Ar 


c4=\  +  Fo  ^c3(hCi+  h,)^ 

h,=£,o  (TH+TW)[(TH)2  +  Ttur2 J 

E.  TYPE  5  NODES— MID-LAYERS,  MID-RADII 

r"+1  =r',  +  Fo[(T^  +T^-2r")  +  c1(Tg  +  r^, 

+  c2(r;-r") 

+  C3(r;-r',)J 

where 

k  A z2 

c  = - - 

ktr2A<p 

tr(r+y)Az2 
Cz  ktrAr2 


(r  +  ■y”)Az2 
Arz 


27’") 
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F.  TYPE  6  NODES— MID-LAYERS.  OUTER  SURFACE 


T 


H+l 


=  ~-{t'  +  Fo  [(!•;  +  r”  -  2 T')+  c,(T;  +  7-;  -  2T") 

4 


+  c2(T]-Tr) 

+  c3tf'  0+hcT„  +  hrTtltr)  Jj. 

where 

Az2 

kIr(r-^-)A02 


c 


2 


2kr(r~-f-)Az2 
k  z(r  ~  ~£~)Ar2 


c 


3 


2r  A  z2 
(r-^)Ar 


c4=l+f*|c3(Aeo  +  A,o)J 

/*,  =£0ct  (Tn  +  Tmr)[(TH)2  +  Tsur2\ 
o 
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APPENDIX  B 


A 


NODE  EQUATIONS  FOR  BRIAN’S  METHOD 

TYPE  1  NODES— END  LAYERS,  INNER  SURFACE 

k'Az2 

2  k,r(r  +  ^-)ty2 

_  kr{  r  +  ~-)Lz  2 
k,(r+  -^p)A  r2 


rA  z2 

C4  “  ^  r 

k'(r+-^-)A  r 


c^l  +  lFo^c^h;  '+hT)  +  cA(hc,  +  /jr^)J 

/»,  =e,a(T',+  Tw)[(r")2  +  rw2] 

=  £/a(r"  +  r,j[(r',)2+  rj] 
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1.  Step  1  (zDlrection) 


where 


2. 


where 


AT'S+BT *  +CT'n=D 


A  = 


Bottom  layer  nodes 
Top  layer  nodes 


B  =  1  +  Fo|l  +  c  (he  +hr)  +  cJhe 
L  •  •  i 


C  = 


Top  layer  nodes 
Bottom  layer  nodes 


D  =  r  +  Fo[Ci(THE  +  r;  -  2  7")  +c2(Th0  -  Tn) 


+  c3(^ .  +  hc  Tm  +  hr  T lur ) 

€  e 

+  c,W,+h,T.  +  hrT„) J 

Step  2  (^-Direction) 

Ar‘‘  +bt”  +  ct”  =d 


A  --  -  c,  Fo 
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3. 


where 


B  = 


1  +  Fo  2c j  +  c3(hC'  +  hr)  +c4(hc  i  +  /i^)J 


C  =  -  cxFo 


D  =  T  +  Fo  [(7*  -  r*)  +  c4(T"0  -  T*) 


+  c3(cf'  t  +  hc  T.+  hrT w) 

+  ct«f,+h,T.  +  hrT„ )J 

Step  3  (r-Direction) 

AT™  +BT~'  +  CT***  =D 


A-0 


B  =  1  +  Fo 


C2+C3(/zc 


+  h 


)+c4(hc+hr)  J 


C  =  -  c2Fo 


d  =  t  "  +  Fo  [(r;  -  r* )  +  c,  (r‘*  +  r”  -  2r“) 


+  Ci(<f'.  +  hc  Tm  +  ht  T  ,w) 
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+  cA(cf'l+hcTm  +  hrTtur)  J 

4.  Step  4  ((^Direction) 

T’“  =-^{t‘+2Fo[(T:  +  T-)  +  c,(T';  +  T\ ;  -  IT") 

+cs(r;"-r“) 

+  c  t  +  h  e  Tm  +  hr  r„) 

+  cAtf,-h,  r.-*rr„)J} 

R  TYPE  2  NODES— END  LAYERS,  MID-RADII 

Az2 

C‘  ~  2*,rfy2 

kr{r~^)Az2 
Cz=  2ife,rAr2 

kr(r  +  ^-)Az2 

c  = - - — 

3  2  ktrAr2 

A  z 

C<  =  T7 

c5=l-h2Fo[cA(hCt  +  kr)  J 
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1. 


where 


2. 


where 


h,  =e,a  (T'+r„>[(rV+T^J 


Step  1  (z-Dlrection) 


at]+bt‘  +ct‘n 


0,  Bottom  layer  nodes'] 
^  ~  -  Fo,  Top  layer  nodes  j 


8=1+  Fo[1+  cA(  hc '+  hr)^ 


C  = 


-  Fo,  Top  layer  nodes 
0,  Bottom  layer  nodes 


D  =  T "  +  Fo  |_c ,(?;  + r;  -  IT ")  +  c  2{T]  -  T ") 


+  C3(r;-r’) 


+  Ct(<r.  +  hc  Tm  +  hr  Tw)\ 


Step  2  (^-Direction) 


AT’  +BT  +CTW=D 


A  =  -  cx  Fo 
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B=\+Fo\2c,  +  cA{he  t  +  hr)\ 


C  =  -  cxFo 

D  =  T*  +  Fo[(Tl  -T‘ )  +  c2(T*  -T*)  +  c^Tl-T*) 

+  C^4' t  +  kC  J-  +  hrJ~r  )J 

3.  Step  3  (r-Direction) 

_ •  •  •  . _ ***  __*•*  _ 

AT,  +BT  +CTq  =D 

where 

A  =  -  c2Fo 


B  =  \  +  Fo[c2  + c  3  + ct(h  c  +  h  r  ) j 


C  =  -  c3  Fo 

D  =  T "  +  Fo  [(J.*  -  7* )  +  c ,  (T  “  +  7 ”  -  27  ** ) 
+  c4(<T.  +  heTm  +  hrTmir)^ 
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4.  Step  4  (New  Temperatures) 


r"+1  =7j{r"+2Fo[(r;-r*)+c1(r;*  +  r;*-2r*’) 


+  c2<r,  -r  )  +  c,(T0  -t  ) 
+  c,i<f.+h,T.  +  h,T„) j} 


C  TYPE  3  NODES— END  LAYERS,  OUTER  SURFACE 

k^A  z2 

C'  2k,(r-±£)rA<p2 


C2  = 


kr(r--^)Az> 

kt{r~^r-)Arl 


c  =  &- 
°3  k. 


C4  = 


rA  z2 
^p)A  r 


c5=  1  +  2Fo^c^hCt  +hr)+cA(hCo  +  hrJ^ 


K  =  etc(Tn+  Ttj[(Tm)2+  T,J] 
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hr  =  eQo  (Tm  +rw)[(j")2  +  r^2J 


1.  Step  1  (z-Direction) 


where 


ATS+BT  +CTn=D 


_  J  0,  Bottom  layer  nodes'] 
^  ~  {-  Fo,  Top  layer  nodes  f 


B=l  +  Fo\L\  +  c3{hCt+hr)+cA(hCo+hr()^ 


-  Fo,  Top  layer  nodes  1 
’  0,  Bottom  layer  nodes  J 


D  =  TK  +  Fo[cx(TKE+THw  -2Th)  +  c2(T* -Tn) 

+  c ,tf\  +  hc  T„  +  hr  7V) 

<  < 

+  cM,0-h,T.-htT,„) J 

2.  Step  2  (^-Direction) 

Ar‘‘  +bt“  +  ct”  =d 

where 

A  =  -  c,  Fo 
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B=  l+Fo  2c,  +  c3(ht'  +  ht)  +cA(hCo  +  hr)\ 


3. 


where 


C  =  -  (\Fo 


D  =  T*  +  Fo  [(Tl  -  7*)  +  c2(T y"  -  T") 
+  c3(<f  '  +  hcT„  +  hrT„) 

+  C4  (4'  0+hc0T  -  + 


Step  3  (r-Direction) 

,  •  •  •  «»> 

AT,  +BT  +CT0  =D 


A  =  -  c2Fo 

B=  1  +  Fo\c 2  +  c 2(h c '  +  h t  )  +  c A(h c o  +  hr 


C  =  0 


D  =  Tn  +  Fo  1 _(T.*  -  r  * )  +  0,(7**  +  7"  -  27*’) 


+  c3(<ft  +  hc  T.  +  hr 
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+  *4<^o+*«/-  +  *r/~>J 

4.  Step  4  (New  Temperatures) 

t"+1  =  tj{t"  +2Fo  [(r;  -  t‘)  +cx(j*z  +  r;*  -  it **) 

+c2(rr-T ~) 

+  c3W't  +  he  T„  +  hr  T„) 

«  ( 

D.  TYPE  4  NODES— MID-LAYERS,  INNER  SURFACE 

k,Az2 

C1  T~jr  7 

kzr(r+^f)A<p2 

2  kr(  r  +  -^)Az  2 

c2  = - - - 

*«(r  +  ^-)A  F 

2rAz2 

cz  ~~  A  r 

Mr  +  —  )A  r 

c6  =  1  +  Fo  [c3(/iC/  +  /»,  )] 

(T'  +  T^^rV  +  r^2] 
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1.  Step  1  (z-Direction) 


where 


2. 


where 


AT]+BT‘  +CT'n=D 


A  -  - 


Fo 

2 


B  =  \  +  +  c3(h  Cf  +  hr  )] 


C  =  - 


Fo 

2 


D  =  T 


+  ‘Y"[ci(7’f  +Ti~27’")  +  c2(ro"r") 

+  c3W',+hClT-  +  hrTnir)  J 


Step  2  (^-direction) 


** 


+  cr“  =z> 


A  = 


c,  Fo 

~T~ 


5  =  1  +  ^r\lc.  +  cAhc  +hr  ) 
2  L  1  /  /  J 
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c  =  - 


Cj  Fo 
~2~ 


D  =  T‘+-^-[(r;  +  7';-2T-)+c1(T0'-r") 
+  c,(<f ,  +hcT.  +  h,T„)^ 


3.  Step  3  (r-Direction) 


AT  +BT  +CT„  =D 


where 


A=0 


B=  1  + 


y-[c2  +  c3(Ae/  +  Ar/)] 


C  =  - 


c2-Fo 

2 


D  -  T  +  -y  [(7-;  +  rs*  -  27*)  +c,  (7£‘*  +7"  -  27**) 


4.  Step  4  (New  Temperatures) 


7*+1  =  ■jr-  {7 "  +  7o[(7^,  +  7  *  -  27  * )  +  c  ,(7£*  +  7  ”  -  27  **) 
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•••  _  •**  , 


+  c2(T0  -T  ) 

+  c^'+h'T  >  +  hrT  «r)J} 


E.  TYPE  4  NODES— MID-LAYERS,  MID-RADII 

k,Az2 
C'~  k,r2bp2 

kr(r  +  y")Az2 
°2  k,rAr2 


(r- 


A  r 


)Az: 


C3  = 


ktAr‘ 


1.  Step  I  (z-Direction) 

AT*  +  BT‘  +CT'n  =D 


where 


A  =  - 


Fo 

2 


B  =  1  +  Fo 
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D  =  7  +  -y  [cx(T'e  +  T*w  -  27")  +  c2(7;"  -  T)  +  c Jj'0  -  7")] 


2. 


where 


3. 


where 


Step  2  (^Direction) 

ATe  +BT  +CTW=D 


B  =  1  +  Cj  Fo 


r  Fn 


D  -  T  +  [(7  ^+7*-27*)  +  c  2(7  "  -  7 ")  +  c  3(7  nQ  -  7 ")] 

Step  3  (r-Direction) 


/47;  +B7  +C70  =£> 


r  Fn 


5 


i  ,  Fo 

!  +  — (c, 


+  cj 
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c  =  - 


c3Fo 

2~ 


d=t-+^[(t;+t;-2t-)+c,(t-;+t;-2t")] 


4.  Step  4  (New  Temperatures) 

rn+i  =r"  +  Fo[(r;  +  r;-2r‘)  +  c1(T;‘  +  r;*-2T  *,)  +  c2(t;**-t  *•*) 


+  c3(r 


0 


TYPE  4  NODES — MID-LAYERS,  OUTER  SURFACE 

k$  Az  2 

C'"  *,r(r- 

2k,(r-  ^)Az’ 


2  rA  z1 


C3  = 


*.(r-  T")Ar 


C4=1+F0[C  3^c0+/lr0)J 


h'o  =  £°a 


(X’'+Tnr)[(TT  +  T 


5 


1.  Step  1  (z-Direction) 


at]+bt'  +ct‘n=d 


where 


A  =  ~ 


Fo 

2 


5  =  1  + 


**■[2  T, (*.,♦*,,)] 


+  c  3(tf  0+hcTm  +  hrTw  )J 

2.  Step  2  (O-direction) 


ate+bt  +ctw=d 


where 


A  = 


c,  Fo 

~T~ 


5  =  1  + 


Fo 

2 


+  2c.  +  cAhc  +  /ir  ) 
o  o 


r  Fn 
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D  =  T*+If[(T'N+T's-2T')+c  2(T* -Th) 


+  c3 W o  +hc  T~  +  h, 
0 


3.  Step  3  (r-Direction) 

AT,  +BT  +CT0  =D 


where 


r  Fn 


Fo 


B  =  1  +  —  c  +c  (hc  +  hr  ) 
l  1  i  o  o 


C  =0 


D  =  T 


+ 


If[<.T>T\-lT')+cx  (T‘b+T'w 

+  CM'  0  +h'0T-  + 


-2Tn) 


4.  Step  4  (New  Temperatures) 


r"+!  =  -—{Tm  +  Fo  [(7*  +T]-2Tm)  +  c,  (7"  +  7”  -  27**) 


+  0^7/  -7  ) 


+  Cl<‘f0+*c/-  +  *-/~>J} 
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APPENDIX  C 


VALIDATION  MODEL 
A  PROBLEM  SPECIFICATION 

Given  a  right  circular  cylinder  with  adiabatic  ends  and  specified 
initial  temperature  distribution  and  constant  inner-surface  tempera¬ 
ture  of  zero  degrees  Celsius.  At  time  t  =  0,  a  uniform  constant  heat  flux 
is  applied  to  the  outer  surface  of  the  cylinder.  Assume  constant  prop¬ 
erties  and  no  losses  due  to  convection  or  radiation. 

a  ANALYTIC  SOLUTION 
Fourier  Equation 

vV_i 

a  fir 

Boundary  Conditions: 

rc  =  a  7  =  0 


r0  =  b 


2L-£- 

dt  k 


Initial  Condition : 


t=0 


T  =  0 


Let:  7  =  <F(  rm  t)  +  0(  r„) 
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Auxiliary  Problem 


V2tP(r0)f)  +  V2<P(r0)  =  -^ 


dWr0lt) 

dt 


r  =  a 


'r(r0>t)  +  V2®(r0)  =  ^^- 


r,=  b 


§ify0\>.0  + 


d® 

dr 
**  0 


k 


t  =  0  *  (r„ 0)+®  (0  =  0 


Separating  the  Auxiliary  Problem 
Equation  1: 


d2®  ,  X  d® 
dr  2  r '  dr. 


ro=  a 


®  (a)  =  0 


ro=  b 


Let: 


y=M 

y  dr  0 


Then: 


d®  Si 

dr0  k 


dy  y 

dr0  ~  r0 
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dy_ 

y 


dr 

***  o 


re 


In (  y)  =-ln(r0)+  c: 


And: 


dd> 

dr0  r0 


d<t>  =  c, 


Yielding: 


=c,  ln(r„)  +  c2 


Evaluating  Constants 


r  =  a  — »  0=0 


0  =  c,  ln(a)  +  c2 


C2  =  ~ 


k 


ln(fl) 


d<P  d" 
dr0~  k 


Thus: 


In 


80 


Transforming  the  Variable 

Let:  r=-j 

And:  K~lo 


btf  r 

0  (r)  =  — j—  ln(pr) 

Then:  *  K 

Converting  Boundary  Conditions 


r.=  a  =» 


K 


r0=  b  =>  r  =  l 

The  Transformed  Problem  Becomes 

bcf'  r 
ln(f) 


r  =  k  0  =  0 

d<p(  r ) 

r=1  -dT=  — 

Equation  2: 

<?¥  ^ 

d-,2  +  dr 

r.=  a  *W=0 


81 


r,=  b 


t  =0  (ra,0)  =- (r  J 


Let:  (r0,t)  =R(r a)  T  (t) 

Then:  +  jR  T  =  ±RI* 

Which  reduces  to 


/?"  J_  2L 

/?  /? 


a  r  ^ 


.2 


Separating  the  two  equalities,  we  obtain 

Equation  2.a 


X 

a 


P 


.2 


In  (T  )=-  a  fi  *Zf 


r(t)  =  e-° 


♦2 


/ 


Equation  2.b 


r„-  a 


R  =  0 


r„=  b 


From  Table  3-2,  Case  B  of  Ozisik 
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R(P  \r„)  =  J0(p  *  r0)  ■  y'0(P  * b)-Ja(P  'b)-Y0(P  V.) 


the  inverse  of  the  norm  is  given  by 

j  ^P‘2Jl(p-a) 

~N{p)~  J\(p'  a)-J\(p -b) 

and  the  eigenvalues  are  the  roots  of 

JAP  ‘a) -YAP  'b)-j  AP'b)YAP  *  a)  =  0 

From  the  recursion  relations  we  know 

j'0(x)=-  Jx{x) 

and  similarly 

y'0U)=-  Yt{x) 

Substituting,  multiplying  by  - 1 ,  and  rearranging  terms  yields 
y,  (P  •b)-J0(p  -a)-J,(P  • b)  Y0(P  -a)  =  0 

Transforming  Variables: 

Letting:  P  ~  P  b 

and  recalling  that:  k  =  -g 

we  obtain  by  substitution  the  common  tabular  form: 
YAP)J0{k  p  )  -JAP  )YAk  p  )  =0 


83 


Performing  similar  variable  transformations  on  the  transient 
solution  yields: 


R{p,r)  =  Jl(P)-Y(rP)-J.(rP)-Yl(P  ) 


with  the  norm 


£7 1\*  0 ) 


Total  Solution: 


bq  r  x-t  -  a  B  2  t  1 

T  (r’°  =~rln(k)^ {exp  ( — ~^1~)  yw y  *  *• (r,/3 } 


J'tP  )  ~~  ^  (p-W  ^  ) 
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APPENDIX  D 

EXPLICIT  METHOD  STABILITY  REQUIREMENTS 

The  following  equations  represent  the  limiting  time  step  size  for 
their  respective  node  types. 

A  TYPE  1  NODES— END  LAYER,  INNER  SURFACE 

k  A  z'1  kt(r  +~-)A  z  2 

A r,  <1  + - | - 

k,r(r  +  -^)A<t>2  kt(r  +  ^)Ar’ 


H  TYPE  2  NODES — END  LAYERS,  MID-RADII 


k  A  z2  k,(r  -  —  )A  z  2 

At,  <  1  + - T  + - ± — - 

k,r2A<p  2k,r  A  r2 


C  TYPE  3  NODES— END  LAYERS,  OUTER  SURFACE 


ktAz2  kr(r  +  ~i)Az2 

Ai3  <1+ - - + - i - 

k,r{r  +  -^)A<l>2  k,(r  +  -^)Ar2 


D.  TYPE  4  NODES— MID-LAYERS,  INNER  SURFACE 


2ktAz2  2kt(r  +  -^L) 

Af_  <  2  + - - - +  -  4 


k,(r~  ~f~ )A</>2 


Ar‘ 
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E.  TYPE  5  NODES— MID-LAYERS,  MID-RADII 


Ik  Az2  kr{r-~~)  kr(r  +  Ar~) 

- 1- - £ —  + - £ — 

k,r2A<f>2  k,rAr2  k,rAr2 


F.  TYPE  6  NODES— MID-LAYERS.  OUTER-SURFACE 

2k,  Az2  2Mr--^)Az2 

At6  < - 1- - + - - 

k,r(r-  A0  2  k,(r--^-)Ar2 
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APPENDIX  E 


EXPLICIT  METHOD  CODE 


C  ECR  FORTRAN  A  -  (REV.  11/23/88) 

C  SATELLITE  MODEL  -  VALIDATED  11/26/88 

Q  ********************************************************** 

C  *  ECR  -  PROGRAM  TO  COMPUTE  NODE  TEMPERATURES  FOR  A  RIGHT  * 

C  *  CIRCULAR  CYLINDER  SUBJECTED  TO  CONVECTIVE  AND/OR  * 

C  *  RADIATIVE  BOUNDARY  CONDITIONS  USING  THE  EXPLICIT  * 

C  *  METHOD  OF  FINITE  DIFFERENCE  ANALYSIS.  * 

Q  ***•********■**★★*★*★*★★*★★*★*★★*★*★★★★★★★★★★*★★★★★***★*★★** 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  TOLD (15, 15, 15) , TNEW{15, 15, 15) 

DIMENSION  DMAT (15, 15, 15) 

COMMON  /ARRSIZ/  III,JJJ,KKK 
COMMON  /CONDUC/  DKR, DKP, DKZ 
COMMON  / CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI , NLAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
COMMON  /TIMES/  DELTIM, DTMAX, FINTIM, LIMIT 
C  START  TIMER 

CALL  STIME 

OPEN  (UNIT=1 1 , FILE= 1 ECRLNG ' ) 

OPEN  (UNIT=1 4 , FILE= ' ECRDAT ' ) 

OPEN  (UNIT=15 , FILE= ' ECRCPU ' ) 

c***********************  USER  DEFINED  VARIABLES  ************************ 
DELTIM  =  0.30D+00 
FINTIM  =  3000 . 0D+00 
IPRINT  =  100 

C  ACTUAL  MATRIX  DIMENSIONS 

NODES  =  10 
NPHI  =  4 
NLAYER  =  5 

C  NODE  SPECIFICATION  FOR  FILE  ESHORT 

MRAD  =10 
MPHI  =  2 
MLAYER  =  3 

C  DECLARED  ARRAY  DIMENSIONS 

III  =  15 
JJJ  =  15 
KKK  =  15 

C  ABSORPTIVITY  COEFFICIENTS 

ALFAN  =  0.4D+00 
ALFAS  =  0.4D+00 
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ALFAO  -  0.4D+00 
C  ALBEDO  COEFFICIENT 

ALBEDO  =  0.30D+00 
C  THERMAL  CONDUCTIVITIES 

DKR  =  177. D+00 
DKP  =  177.D+00 
DKZ  =  177. D+00 
C  EMISSIVITIES 

EPSUBN  =  0.9D+00 
EPSUBS  =  0.9D+00 
EPSUBI  =  0.D+00 
EPSUBO  -  0.9D+00 
C  CONVECTION  COEFFICIENTS 

HSUBN  =  0.D+00 
HSUBS  -  0.D+00 
HSUBI  =  0.D+00 
HSUBO  =  0.D+00 
C  HEAT  FLUXES 

SOLAR  =  1353. D+00 
EIR  =  238.0D+00 
GEN  =  1000. 

QPSUBI  =  0 .D+00 
QPSUBO  =  0 .D+00 
QPSUBN  =  0 .D+00 
QPSUBS  =  0 .D+00 
C  GEOMETRY 

RMIN  =  0 . 15244D+00 
RMAX  =  0.22866D+00 
ZMAX  =  I .D+00 

C  VIEW  FACTORS  WITH  THE  EARTH 

VERTHN  =  0 .D+00 
VERTHS  =  1.D+00 
VERTHI  =  0 .D+00 
VERTHO  =  0.D+00 
C  VIEW  FACTORS  WITH  SPACE 

VSPCN  =  1 .D+00 
VSPCS  =  0 .D+00 
VSPCI  =  0 .D+00 
VSPCO  =  1 . D+00 
C  TEMPERATURES 

TABS  <=  273. D+00 
TINIT  =  293. D+00 
TINF  =  0 .D+00 
TSUR  =  4. D+00 
C  MATERIAL  PROPERTIES 

CSUBP  =  875.0D+00 
RHO  =  2270 . 0D+00 
C  INITIALIZE  OTHER  VARIABLES 

ICOUNT  =  0 
ITIM E  =  0 
ORBTIM  =  0 . D+00 
PI  *  4 . 0D+00*DTAN (1 .D+00) 
RAD  =  RMIN 
SIGMA  =  5.67D-08 
TIME  =  0 . D+00 
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non 


T1  «  O.D+OO 

C  INITIALIZE  MATRICES 

CALL  BMINIT  (TOLD, TINIT) 

CALL  BMINIT  (TNEW, TINIT) 

C  SURFACE  AREA  CALCULATIONS 

S ARE AN  -  PI* (RMAX* *2  -  RMIN**2) 

SAREAS  =  PI* (RMAX**2  -  RMIN**2) 

S ARE A I  *  PI* (2*RMIN) *ZMAX 
SAREAO  -  PI* (2*RMAX) *ZMAX 
C  INITIAL  CALCULATIONS 

ALFA  *  DKZ/ (RHO*CSUBP) 

DPHI  -  2 . *PI/NPHI 

DR-  (RMAX-RMIN) / (NODES -1) 

DZ  -  ZMAX/ (NLAYER-1) 

LPHI  -  360/NPHI 
QPSUBI  -  GEN/SAREAI 
C  ORBITAL  PARAMETERS 

PERIOD  *  5440. D+00 
ECLIPS  -  2181.9D+00 
OMEGA  -  1 . 155D-03 
TAU  -  0 .01*PERIOD/4 
TIME1  =  0.D+00 

TIME2  =  PERIOD/4. D+00 

TIME3  =  107 . 8D+00/360  *  PERIOD 
TIME4  =  (270  -  17.8) /360  *  PERIOD  -  4*TAU 
TIMES  =  (270  -  17.8) /36G  *  PERIOD 
TIME 6  =  270/360  *  PERIOD 
C  ESTABLISH  STABILITY  REQUIREMENT 

CALL  STABIL  (DTMAX) 

FO  -  ALFA*DELTIM/ (DZ**2) 

LIMIT  =  FINTIM/DELTIM  +  500 
C  WRITE  MATRIX  DIMENSIONS  TO  FILE  14  (ECRDAT) 

WRITE  (14,*)  NODES, NPHI,NLAYER 

***  PRINT  OPTION  3  -  SAVES  DESIGNATED  NODE  TEMPS  AT  SPECIFIED 

PRINT  INTERVAL.  USE  FOR  LONG  PERIOD  EVALS . 

WRITE  (11,*)  ' ECRSAT ' 

WRITE  (11,*) 

WRITE  (11,888) 

888  FORMAT  (T6, 'TIME’,T18, 'DELTIM' ,T30, ' LAYER1 ' , T45, ' LAYER3 ' , T60 , ' LAYE 
1R'  ) 

WRITE  (II,*) 

C 

CMMMMMKMMMMMMMMMMMMM  BEGIN  TEMPERATURE  COMPUTATIONS  MMMMMMMMMMMMMMMMMMMM 
C  GET  TIME  ENTERING  LOOP  (MAINFRAME  VERSIONS  OF  CODE  ONLY) 

WRITE  (11,*)  'ENTERING  LOOP  TIME' 

CALL  GTIME (1, 11) 

DO  100  1-1, LIMIT 

ICOUNT-ICOUNT+1 

TIME-TIME+DELTIM 

ORBTIM  -  ORBTIM  +  DELTIM 

IF  (ORBTIM. GE. PERIOD)  ORBTIM  -  ORBTIM  -  PERIOD 
C  SURFACE  FLUX  CALCULATIONS  (TIME  DEPENDENT) 

IF  ( (ORBTIM. GE.0) .AND. (ORBTIM. LE.TIME2) )  THEN 
QPSUBN  =  ALFAN*SOLAR*DCOS (OMEGA*ORBTIM) 
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o  o  o  o  on 


QPSUBS  -  ALFASMEIR  +  ALBEDO*SOLAR*DCOS  ( OMEGA *ORBTIM)  ) 
QPSUBO  -  0 . 5*ALFAO*SOLAR*DSIN (OMEGA* ORBTIM) 

ELSEIF  ( (ORBTIM . GT . TIME  2 ) .AND. (ORBTIM . LE . TIME3) ) THEN 
QPSUBN  -  0. 

QPSUBS  -  ALFASMEIR  +  ( ALBEDO+DCOS (OMEGA*ORBTIM) ) *SOLAR) 
QPSUBO  -  0 . 5*ALFAO*SOLAR*DSIN (OMEGA* ORBTIM) 

ELSEIF  ( {ORBTIM. GT.TIME3) .AND. (ORBTIM. LE.TIME4) )  THEN 
QPSUBN  «  0. 

QPSUBS  -  ALFAS *EIR 
QPSUBO  -  0.D+00 

ELSEIF  ( (ORBTIM. GT.TIME4) .AND. (ORBTIM. LE.TIME5) )  THEN 
QPSUBN  -  0.D+00 
QPSUBS  =  ALFAS* (EIR 

1  +  DABS (ALBEDO* SOLAR*DSIN (OMEGA* ORBTIM) ) 

1  * (1-DEXP (- (ORBTIM-TIME4) /TAU) ) ) 

QPSUBO  -  0 . 5*ALFAO*DABS ( ALBEDO*SOLAR 
1  +  DSIN (OMEGA*ORBTIM) 

1  * (1-DEXP (-(ORBTIM-TIME4) ) /TAU) ) 

ELSEIF  ( (ORBTIM. GT.TIME5) .AND. (ORBTIM. LT.TIME6) )  THEN 
QPSUBN  =  0.D+00 
QPSUBS  =  ALFAS* (EIR 

1  +  DABS (ALBEDO*SOLAR*DSIN (OMEGA*ORBTIM) ) ) 

QPSUBO  -  0 . 5*ALFAO*DABS (SOLAR*DSIN (OMEGA*ORBTIM) ) 

ELSEIF  (ORBTIM.GT.TIME6)  THEN 

QPSUBN  -  ALFAN*DABS (SOLAR*DCOS (OMEGA* ORBTIM) ) 

QPSUBS  -  ALFAS* (EIR 

1  +  DABS (ALBEDO*SOLAR*DSIN(OMEGA*ORBTIM) ) ) 

QPSUBO  =  0.5*ALFAO*DABS (SOLAR*DSIN(OMEGA*ORBTIM) ) 

ENDIF 

C  CALL  MAIN  SUBROUTINE 

CALL  NUTEMP  (TOLD, TNEW, DELTIM) 

C  MAP  NEW  TEMPERATURE  MATRIX  ONTO  OLD  TEMPERATURE  MATRIX 

CALL  MAP 122  (TNEW, TOLD) 

C  SAVE  TIME,  DELTIM  AND  TEMPERATURE  MATRIX  TO  DATA  FILE  14  (ECRDAT) 

IF  ( ICOUNT . EQ . IPRINT )  THEN 
I COUNT  =  0 

WRITE  (14,*)  TIME, DELTIM 

****  CONVERT  NEW  TEMPERATURES  TO  EXCESS  FOR  PRINTOUT  **** 

DO  200  LAYER=1 , NLAYER 
DO  300  INCRAD=1, NODES 
DO  400  IPHI=1 , NPHI 

TNEW ( INCRAD, IPHI, LAYER)  =  TNEW ( INCRAD, IPHI , LAYER  1)  -  TINIT 

****  PRINT  OPTION  1  -  USE  WITH  CMPSHT, COMPAR, LNGFRM, SHTFRM, BCRERR 

SHORT  EVALUATION  TIMES  ONLY  «400  SEC) 

WRITE  (14,*)  TNEW (INCRAD, IPHI, LAYER) 

CONTINUE 
CONTINUE 
CONTINUE 

***  PRINT  OPTION  2  -  SAVES  COMPLETE  MATRIX  AT  SPECIFIED  PRINT 

INTERVAL  -  SWITCH  OFF  ALL  SUBROUTINES  LISTED 
UNDER  PRINT  OPTION  1  FIRST. 

CALL  PRTMAT  (TIME, DTIME, TNEW, NODES , NPHI , NLAYER) 


400 

300 

200 

C 

C 

C 

C 

C 
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c 

c 

c 
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C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

100 

c 

101 

c 


c 

c 

c 

c 

999 


***  PRINT  OPTION  3  -  SAVES  DESIGNATED  NODE  TEMPS  AT  SPECIFIED 

PRINT  INTERVAL.  USE  FOR  LONG  PERIOD  EVALS . 
WRITE  (11,889)  TIME, DELTIM, TNEW (5,1,1), TNEW (5,1,3), TNEW (5, 1 , 5) 
FORMAT  (T1,F9.3,T15,F9.3,T25,F12.6,T40,F12.6,T55,F12.6) 

********  RE-SPECIFY  PRINT  INTERVALS  ******** 

IF  (TIME. GE. 99. 9)  THEN 
IPRINT  -  200 

ELSEIF  (TIME . GE . 9 . 9)  THEN 
IPRINT  -  100 

ELSEIF  (TIME. GE. 0.99)  THEN 
IPRINT  =  10 

END  IF 

END  IF 

TIME  INTERVAL  DELIMITER 

IF  (TIME.GE.FINTIM)  GOTO  101 
CONTINUE 

STOP  CLOCK  TIMER  (MAINFRAME  VERSIONS  OF  CODE  ONLY) 

CONTINUE 

GET  TIME  EXITING  LOOP 
CALL  GTIME  (1,11) 

CLOSE  (14) 

CLOSE  (15) 

WRITE  APPROPRIATE  DATA  FILES 
CALL  ERROR  (MRAD, MPHI , MLAYER) 

CALL  SHTFRM  (MRAD, MPHI , MLAYER) 

CALL  LNGFRM 
CALL  GTIME (1,11) 

STOP 

END 


C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  BMINIT  FORTRAN  A  -  (REV.  9/28/88) 

Q  ************************************************************* 

C  *  BMINIT  -  SUBROUTINE  TO  INITIALIZE  TEMPERATURE  MATRIX  TO  A  * 

C  *  SPECIFIED  VALUE  (BRIAN'S  METHOD  ARRAY  FORMAT)  * 

Q  ************************************************************* 

C  PROGRAM  LINE  213 

SUBROUTINE  BMINIT  (DMAT,  UNIT) 

IMPLICIT  DOUBLE  PRECISION  <A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 
DIMENSION  DMAT (III, JJJ,  KKK) 

DO  100  LAYER=1, KKK 

DO  200  IPHI=1 , JJJ 

DO  300  INCRAD=1,  III 

DMAT (INCRAD, IPHI, LAYER)  -  TINIT 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 

998  RETURN 
END 


C 
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csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  STABIL  FORTRAN  A  {REV.  11/14/88) 

Q  *★**★*★***★★*★★**★*********■**★*★*****★★*★**★****★**★*★■*•****★★* 

C  *  STABIL  -  SUBROUTINE  TO  COMPUTE  THEORETICAL  MAXIMUM  TIME  * 

C  *  INCREMENT  ALLOWED  TO  MAINTAIN  STABILITY  IN  EXPLICIT  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  OF  A  CYLINDER  IN  3-D  * 

C  *  POLAR  CYLINDRICAL  COORDINATES.  * 

C  ************************************************************** 

C  PROGRAM  LINE  237 

SUBROUTINE  STABIL  (DTMAX) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  DT{6) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI,  HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 
COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI , EPSUBO, SIGMA 

C  ***  BODY  *** 

DO  50  1=1, 6 

DT ( I )  =  0.D+00 
50  CONTINUE 

DUMMY  =  (DZ**2 ) /ALFA 
C  END  LAYERS,  INNER  SURFACE  NODES 

DCREI  =  1  +  (2*DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 

1+  (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

DT  ( 1 )  =  DUMMY/ (2*DCR£I) 

DTMAX  =  DT  ( 1 ) 

C  END  LAYERS,  MID-RADII  NODES 

DCREM  =  1  +  2* (DKP*DZ**2) / (2 *DKZ *RAD* *2 *DPHI **2 ) 

1+  (DKR* (RAD-DR/2) *DZ**2) / (2 *DKZ*RAD*DR* *2) 

2+  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2 ) 

DT (2)  -  DUMMY/ (2*DCREM) 

C  END  LAYERS,  OUTER  SURFACE  NODES 

DCREO  =  1  +  2* <DKP*DZ**2) / <2*DKZ* (RAD-DR/4) *RAD*DPHI* *2 ) 

1+  (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

DT (3)  =  DUMMY/ (2*DCREO) 

C  MID-LAYERS,  INNER  SURFACE  NODES 

DCRMI  =  2  +  2* (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

1+  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

DT ( 4 )  =  DUMMY/DCRMI 
C  MID-LAYERS,  MID-RADII  NODES 

DCRMM  =  2  +  2* (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 

1+  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

2+  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

DT  (5)  «*  DUMMY /DCRMM 
C  MID-LAYERS,  OUTER  SURFACE  NODES 

DCRMO  -  2  +  2* (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

1+  (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

DT ( 6 )  =  DUMMY / DCRMO 
DO  100  1=1, 6 

IF  (  (DT(I)  .GT.O)  .AND.  (DTMAX. GT.DT(I) ) )  DTMAX  =  DT(I) 

WRITE  (*,*)  'FROM  STABIL,  I , DT  ( I )  ' , I , DT ( I ) 

100  CONTINUE 

IF  (DTMAX. LE.0)  WRITE  (*,*)  'STABIL  -  DTMAX  LE  ZERO' 
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o  o 


998  RETURN 
END 


csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  NUTEMP  FORTRAN  A  -  (REV.  11/14/88) 

C  ******************************************************** 

C  *  NUTEMP  -  THIS  SUBROUTINE  COMPUTES  THE  MATRIX  OF  NODE  * 

C  *  TEMPERATURES  AT  THE  N+l  TIMESTEP  FOR  THE  * 

C  *  EXPLICIT  METHOD  OF  FINITE  DIFFERENCE  * 

C  *  ANALYSIS  FOR  A  RIGHT  CIRCULAR  CYLINDER  WITH  * 

C  *  CONSTANT  SURFACE  HEAT  FLUX  AND  A  SPECIFIED  * 

C  *  INNER  SURFACE  TEMPERATURE.  * 

Q  A******************************************************* 

C  PROGRAM  LINE  298 

SUBROUTINE  NUTEMP  (TOLD, TNEW, DELTIM) 

IMPLICIT  DOUBLE  PRECISION  <A-H,0-Z) 

COMMON  /ARRSIZ/  III, JJJ, KKK 
COMMON  /CONDUC/  DKR, DKP , DKZ 
COMMON  /CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON  /MATSIZ/  NODES , NPHI , NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI , LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
DIMENSION  TOLD (III, JJJ, KKK) , TNEW (III, JJJ, KKK) 
CBBBBBBBBBBBBBBBBBBBBBBBBBBBB  BOTTOM  LAYER  BBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
LAYER  «  1 

C  ****  BOTTOM  LAYER,  INNER  RADIUS  **** 

INCRAD  «  1 
RAD  =  RMIN 

c  ********  BOTTOM  LAYER,  INNER  RADIUS,  FIRST  PHI  ******** 

IPHI  =1 

Tl=TOLD (INCRAD, IPHI, LAYER) 

T2=TOLD (INCRAD, IPHI, (LAYER+1 ) ) 

T3-TOLD ( INCRAD, NPHI , LAYER) 

T 4 =TOLD (INCRAD, ( IPHI+1 ), LAYER) 

T5=TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECREI  (TEMP) 

TNEW (INCRAD, IPHI,  LAYER) -TEMP 

C  ********  BOTTOM  LAYER,  INNER  RADIUS,  MID-PHIS  ******** 

DO  100  IPHI-2, (NPHI-1) 

Tl-TOLD (INCRAD, IPHI, LAYER) 

T2-TOLD (INCRAD, IPHI, (LAYER+1)) 

T3-TOLD (INCRAD, (IPHI-1) , LAYER) 

T4-TOLD (INCRAD, ( IPHI+1 ), LAYER) 

T5=TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECREI  (TEMP) 

TNEW (INCRAD, IPHI, LAYER) -TEMP 
100  CONTINUE 

C  ********  BOTTOM  LAYER,  INNER  RADIUS,  LAST  PHI  ******** 

IPHI— NPHI 
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Tl-TOLD (INCRAD, IPHI, LAYER) 

T2— TOLD (INCRAD, IPHI, (LAYER+1 ) ) 

T3«TOLD( INCRAD, ( IPHI- 1 ), LAYER) 

T4-TOLD (INCRAD, 1, LAYER) 

T5«TOLD( (INCRAD+1) , IPHI, LAYER) 

CALL  ECREI  (TEMP) 

TNEW( INCRAD, IPHI, LAYER) -TEMP 

C  ********  BOTTOM  LAYER,  MID-RADII  ******** 

DO  200  INCRAD— 2 ,  (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 

C  ********  BOTTOM  LAYER,  MID-RADII,  FIRST  PHI  ******** 

IPHI  -  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER+1)) 

T3  -  TOLD (INCRAD, NPHI, LAYER) 

T4  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  =  TOLD ( (INCRAD-1), IPHI, LAYER) 

T6  -  TOLD ((INCRAD+1), IPHI, LAYER) 

CALL  ECREM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

C  ********  BOTTOM  LAYER,  MID  RADII,  MID-PHIS  ******** 

DO  300  IPHI-2, (NPHI-1) 

T1  *  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER+1)) 

T3  =  TOLD (INCRAD, ( IPHI-1 ), LAYER) 

T4  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T6  -  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECREM  (TEMP) 

TNEW(INCRAD, IPHI, LAYER)  -  TEMP 

300  CONTINUE 

C  ********  BOTTOM  LAYER,  MID  RADII,  LAST  PHI  ******** 

IPHI  -  NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

14  -  TOLD ( INCRAD, 1, LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T6  =  TOLD ((INCRAD+1), IPHI,  LAYER) 

CALL  ECREM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 

200  CONTINUE 

C  ****  OUTER  RADIUS  **** 

INCRAD  =  NODES 
RAD  =  RMAX 

C  ********  BOTTOM  LAYER,  OUTER  RADIUS,  FIRST  PHI  ******** 

IPHI  -  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TOLD (INCRAD, NPHI, LAYER) 

T4  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECREO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 

C  ********  first  LAYER,  OUTER  RADIUS,  MID-PHIS  ******** 
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DO  400  IPHI-2, (NPHI-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T4  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECREO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

400  CONTINUE 

C  ********  BOTTOM  LAYER,  OUTER  RADIUS,  LAST  PHI  ******** 

IPHI  =  NPHI 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TOLD  (INCRAD,  (IPHI-1)  ,  LAYER) 

T4  «  TOLD (INCRAD, 1, LAYER) 

T5  »  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECREO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 

CMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  MID -LAYERS  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
DO  500  LAYER=2, (NLAYER-1 ) 

C  ****  MID-LAYERS,  INNER  RADIUS  **** 

INCRAD  =  1 

RAD  =  RMIN 

C  ********  MID-LAYERS,  INNER  RADIUS,  FIRST  PHI  ******** 

IPHI-1 

T1  -  TOLD (INCRAD, IPHI,  LAYER) 

T2  «  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  *  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T  4  *  TOLD (INCRAD,  (NPHI) , LAYER) 

T5  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T6  -  TOLD ( (INCRAD+1) , IPHI,  LAYER) 

CALL  ECRMI  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

C  ********  MID-LAYERS, INNER  RADIUS,  MID-PHIS  ******** 

DO  600  IPHI=2 , NPHI 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  *  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T5  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T€  =  TOLD { (INCRAD+1) , IPHI, LAYER) 

CALL  ECRMI  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

600  CONTINUE 

C  ********  MID-LAYERS, INNER  RADIUS,  LAST  PHI  ******** 

IPHI=NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  «  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  -  TOLD (INCRAD, (IPHI-1) , LAYER) 

T5  -  TOLD (INCRAD, 1, LAYER) 

T6  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECRMI  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 

C  ********  MID-LAYERS,  MID-RADII  ******** 
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DO  700  INCRAD-2, (NODES-1) 

RAD  -  RMIN  +  (INCRAD-1)  *DR 

C  ********  MID-LAYERS,  MID-RADII,  FIRST  PHI  ******** 

IPHI  =  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  «  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TOLD (INCRAD, NP HI, LAYER) 

TS  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T6  -  TOLD ((INCRAD-1), IPHI, LAYER) 

T7  -  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECRMM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 

C  ********  MID-LAYERS,  MID-RADII,  MID-PHIS  ******** 

DO  800  IPHI-2, (NPHI-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  -  TOLD ( INCRAD, (IPHI-1) , LAYER) 

T5  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T6  -  TOLD ( (INCRAD-1) , IPHI,  LAYER) 

T7  =  TOLD( (INCRAD+1), IPHI, LAYER) 

CALL  ECRMM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

800  CONTINUE 

C  ********  MID-LAYERS,  MID-RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  -  TOLD (INCRAD, (IPHI-1) , LAYER) 

T5  -  TOLD (INCRAD, 1, LAYER) 

T6  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T7  =  TOLD ((INCRAD+1), IPHI, LAYER) 

CALL  ECRMM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

700  CONTINUE 

C  ****  MID-LAYERS,  OUTER  RADII  **** 

INCRAD  =  NODES 
RAD  =  RMAX 

c  ********  mid-layers,  outer  RADIUS,  FIRST  PHI  ******** 

IPHI  =  1 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  -  TOLD (INCRAD, NPHI, LAYER) 

T5  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T6  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECRMO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

C  ********  MID-LAYERS,  OUTER  RADIUS,  MID-PHIS  ******** 

DO  900  IPHI-2, (NPHI-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 
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T4  =  TOLD (INCRAD, (IPHI-1) .LAYER) 

T5  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T6  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECRMO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 

900  CONTINUE 

C  ********  MID-LAYERS,  OUTER  RADIUS, LAST  PHI  ******** 

IPHI  =  NPHI 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+l) ) 

T3  -  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  -  TOLD (INCRAD, (IPHI-1) , LAYER) 

T5  -  TOLD (INCRAD, 1, LAYER) 

T6  -  TOLD ( (INCRAD-1)  ,  IPHI, LAYER) 

CALL  ECRMO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 

500  CONTINUE 

ctttttttttttttttttttxttttttttt  *pQp  ttt t t 

LAYER  =  NLAYER 

C  ****  TOP  LAYER,  INNER  RADIUS  **** 

INCRAD  =  1 

RAD  -  RMIN 

C  ********  TOp  LAYER,  INNER  RADIUS,  FIRST  PHI  ******** 

IPHI-1 

Tl=TOLD (INCRAD, IPHI, LAYER) 

T2-TOLD (INCRAD, IPHI, (LAYER-1)) 

T3=TOLD (INCRAD, NPHI, LAYER) 

T 4 -TOLD (INCRAD, ( IPHI+1 ), LAYER) 

T5«=TOLD(  (INCRAD+1)  ,  IPHI,  LAYER) 

CALL  ECREI  (TEMP) 

TNEW (INCRAD, IPHI, LAYER) -TEMP 

C  ********  XOp  LAYER,  INNER  RADIUS,  MID-PHIS  ******** 

DO  1000  IPHI-2, (NPHI-1 ) 

Tl=TOLD (INCRAD, IPHI, LAYER) 

T2-TOLD (INCRAD, IPHI, (LAYER-1) ) 

T3=TOLD (INCRAD, ( IPHI-1 ), LAYER) 

T4-TOLD (INCRAD, ( IPHI+1 ), LAYER) 

T5=TOLD ( (INCRAD+1)  ,  IPHI,  LAYER) 

CALL  ECREI  (TEMP) 

TNEW ( INCRAD , IPHI, LAYER) =TEMP 

1000  CONTINUE 

C  ********  TOP  LAYER,  INNER  RADIUS,  LAST  PHI  ******** 

IPHI-NPHI 

Tl-TOLD (INCRAD, IPHI, LAYER) 

T2-TOLD (INCRAD, IPHI,  (LAYER-1)) 

T3-TOLD (INCRAD, ( IPHI- 1 ), LAYER) 

T4=TOLD (INCRAD, 1, LAYER) 

T5-TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECREI  (TEMP) 

TNEW ( INCRAD , IPHI , LAYER) -TEMP 

C  ****  TOP  LAYER,  MID  RADII  **** 

DO  1100  INCRAD-2, (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 

C  ********  TOP  LAYER,  MID-RADII,  FIRST  PHI  ******** 

IPHI  =  1 
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T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T3  «  TOLD (INCRAD, NPHI, LAYER) 

T4  «  TOLD (INCRAD, (IPHI +1) , LAYER) 

T5  -  TOLD { (INCRAD-I) , IPHI, LAYER) 

T6  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECREM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 

c  ********  T0p  layer,  MID  RADII,  MID-PHIS  ******** 

DO  1200  IPHI-2, (NPHI-1) 

T1  *  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER-1)) 

T3  «  TOLD (INCRAD, (IPHI-1) , LAYER) 

T4  «  TOLD (INCRAD, (IPHI+l), LAYER) 

T5  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T6  *  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECREM  (TEMP) 

TNEW  (INCRAD,  IPHI,  LAYER)  *=  TEMP 

1200  CONTINUE 

C  ********  TOP  LAYER,  MID  RADII,  LAST  PHI  ******** 

IPHI  «=  NPHI 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T3  -  TOLD (INCRAD, (IPHI-1) , LAYER) 

T4  =  TOLD (INCRAD, 1, LAYER) 

T5  “  TOLD ( (INCRAD-1), IPHI, LAYER) 

T6  =  TOLD ((INCRAD+1), IPHI, LAYER) 

CALL  ECREM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

1100  CONTINUE 

c  ****  TOP  LAYER,  OUTER  RADIUS  **** 

INCRAD  *  NODES 
RAD  »  RMAX 

C  ********  TOp  LAYER,  OUTER  RADIUS,  FIRST  PHI  ******** 

IPHI  *  1 

T1  -  TOLD (INCRAD, IPHI,  LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TOLD (INCRAD, NPHI, LAYER) 

T4  -  TOLD (INCRAD, (IPHI+l) , LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECREO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

C  ********  TOP  LAYER,  OUTER  RADIUS,  MID-PHIS  ******** 

DO  1300  IPHI=2, (NPHI-1) 

T1  -=  TOLD  (INCRAD,  IPHI,  LAYER) 

T2  -  TOLD (INCRAD, IPHI, (LAYER-1)) 

T3  -  TOLD (INCRAD, (IPHI-1), LAYER) 

T4  -  TOLD (INCRAD, (IPHI+l) , LAYER) 

T5  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECREO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  *  TEMP 

1300  CONTINUE 

C  ********  TOP  LAYER,  OUTER  RADIUS,  LAST  PHI  ******** 

IPHI  -=  NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 
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T2  -  TOLD (INCRAD, IPHI, (LAYER-1)) 
T3  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T4  =  TOLD (INCRAD, 1,  LAYER) 

T5  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 
CALL  ECREO  (TEMP) 

TNEW(INCRAD, IPHI, LAYER)  =  TEMP 

998  RETURN 
END 
C 
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************* 

*  ECREI 

* 

★ 

* 
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ECREI  FORTRAN  A  -  (REV.  11/14/88) 

*************************************************** 
THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT  * 

THE  INNER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

OF  A  RIGHT-CIRCULAR  CYLINDER  USING  THE  EXPLICIT  METHOD  * 
OF  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 
COORDINATES .  * 

****************************************************************** 
PROGRAM  LINE  631 
SUBROUTINE  ECREI  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 
COMMON  /MATSIZ/  NLAYER, NODES, NPHI 
COMMON  /NPOSIT/  INCRAD, IPHI , LAYER 
COMMON  /PARAMS '  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 

***  BODY  *** 


IF  ( LAYER. EQ.l)  THEN 
Q  =  QPSUBS 
HE  *  HSUBS 
EPSE  =  EPSUBS 

ELSEIF  ( LA YER.EQ. NLAYER)  THEN 
Q  =  QPSUBN 
HE  =  HSUBN 
EPSE  =  EPSUBN 
END  IF 

D1  =  DKP*DZ**2/ (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  =  DKR* (RAD+DR/2) *DZ**2/ (DKZ* (RAD+DR/4) *DR**2) 

D3  =  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

D5  -  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  =  1  +  2*FO*  (D3* (HE  +  D5*EPSE)  +  D4* (HSUBI  +  D5+EPSUBT ) ) 


TNEW  =  1/D6* (T1+2+FO* ( (T2-T1)  +  Dl* (T3+T4-2*T1)  +  D2*(T5-T1) 
1+  D3*(Q  +  HE+TINF  +  D5*EPSE*TSUR) 

2+  D4* (QPSUBI  +  HSUBI+TINF  +  D5*EPSUBI*TSUR) ) ) 

C 

998  RETURN 
END 
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c 

C  ECREM  FORTRAN  A  -  (REV.  11/14/88) 

c  *******•********************************************«»„  *********** 

C  *  ECREM  -  THIS  SUBROUTINE  COMPUTES  THE  TEMPERATURES  OF  THE  MID-  * 

C  *  RADIAL  NODES  FOR  THE  END  LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  THE  EXPLICIT  METHOD  * 

C  OF  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

C  ****************************************************************** 

C  PROGRAM  LINE  678 

SUBROUTINE  ECREM  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 
COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 
COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA,FO,QPSUBN,QPSUBS,QPSUBI,QPSUBO 
COMMON  /MATSIZ/  NODES , NPHI , NLAYER 
INCRAD, IPHI, LAYER 
CSUBP, RHO 

EPSUBN, EPSUBS, EPSUBI,  EPSUBO,  SIGMA 
T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
***  BODY  *** 

THEN 


/NPOSIT/ 

/PARAMS/ 

/RADN/ 

/TEMPS/ 


COMMON 
COMMON 
COMMON 
COMMON 
C 

IF  (LAYER. EQ.l) 

Q  «  QPSUBS 
EPSE  -  EPSUBS 
HE  =  HSUBS 

ELSEIF  ( LA YER.EQ. NLAYER)  THEN 
Q  =  QPSUBN 
EPSE  -  EPSUBN 
HE  -  HSUBN 
END  IF 

D1  -  (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 

D2  *  (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

D3  *  {DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

D4  *  DZ /DKZ 

D5  =  SIGMA* (Tl+TSUR) * (T1 * *2+TSUR* *2 ) 

D6  =  1  +  2*FO*D4* (HE+D5*EPSE) 

TNEW  =  1/D6*(T1  +  2*FO* ( (T2-T1)  +  Dl* (T3+T4-2*T1) 
1+  D3* (T6-T1)  +  D4*(Q  +  HE*TINF  +  D5*EPSE*TSUR) ) ) 
998  RETURN 
END 


+  D2*  (T5-T1.) 
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C 


c 

c 

c 

c 

c 

c 

c 

c 

c 


ECREO  FORTRAN  A  -  (REV.  11/14/88) 

»*************»*****,,,,t*1,jj,,jttt,jl,,u,in,,lt,i,,]U,,(,1,4lt],ot4 

*  ECREO  -  THIS  SUBROUTINE  COMPUTES  THE  NODE  TEMPERATURES  AT  * 

4  THE  OUTER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

*  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  THE  EXPLICIT  METHOD  * 

*  OF  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

*  COORDINATES.  * 

*****************ii**-k**1,*l,1,i,-l,i,i,i,iti,i,i,i,i,i,*in,lt******************1,***it 

PROGRAM  LINfc  721 
SUBROUTINE  ECREO  (TNEW) 
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c 


c 


c 

998 


IMPLICIT  DOUBLE 
COMMON  /CONDUC/ 
COMMON  /CONVEC/ 
COMMON  /GEOMET/ 
COMMON  /HEAT/ 
COMMON  /MATSIZ/ 
COMMON  /NPOSIT/ 
COMMON  /P ARAMS/ 
COMMON  /RADN/ 
COMMON  /TEMPS/ 


PRECISION  (A-H, O-Z ) 

DKR, DKP, DKZ 

HSUBN, HSUBS, HSUBI, HSUBO 

DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 
NODES , NPHI, N LAYER 
INCRAD, IPHI, LAYER 
CSUBP, RHO 

EPSUBN,EPSUBS, EPSUBI, EPSUBO,  SIGMA 
T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
***  BODY  *** 


IF  (LAYER. EQ.l)  THEN 
Q  *  QPSUBS 
EPSE  «  EPSUBS 
HE  -  HSUBS 

ELSEIF  (LAYER. EQ.NLAYER)  THEN 
Q  «  QPSUBN 
EPSE  ■  EPSUBN 
HE  =  HSUBN 
ENDIF 

D1  =  (DKP*DZ**2) / <2*DKZ* (RAD-DR/4) *RAD*DPHI**2) 

D2  -  (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  «  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  *  1  +  2*FO* (  D3* (HE+D5*EPSE)  +  D4* (HSUBO+D5*EPSUBO) ) 


TNEW  =  1/D6MT1  +  2*FO*  (  (T2-T1)  +  (T3+T4-2*T1)  +  D2*  (T5-T1) 
1+  D3*(Q  +  HE* TINF  +  D5*EPSE*TSUR) 

2+  D4* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) ) 


RETURN 

END 


C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

c  ECRMI  FORTRAN  A  -  (REV.  11/14/88) 

Q  ****************************************************************** 

C  *  ECRMI  -  THIS  SUBROUTINE  COMPUTES  THE  NODE  TEMPERATURES  AT  * 

C  *  THE  INNER  SURFACE  OF  THE  MID-LAYERS  (2  THRU  NLAYER-1 )  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  THE  EXPLICIT  METHOD  * 

C  *  OF  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

£  ****************************************************************** 

C  PROGRAM  LINE  767 

SUBROUTINE  ECRMI  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H, O-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 
COMMON  /PARAMS/  CSUBP, RHO 

COMMON  /RADN/  EPSUBN,  EPSUBS,  EPSUBI,  EPSUBO, SIGMA 
COMMON  /TEMPS/  T1 , T2 , T3 , T4 , T5, T6 , T7 , T8 , T9, T1 0 , TINF, TSUR 
C  ***  BODY  *** 
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D1  -  (DKP*D2**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  =  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
D3  -  (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

***  NO  D4  REQUIRED  *** 

D5  -  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  «  1  +  FO*D3* (HSUBI+D5*EPSUBI) 


TNEW  =  1/D6* (T1  +  FO* ( (T2+T3-2*T1)  +  Dl*  (T4+T5-2+T1)  +  D2*(T6-T1) 
1+  D3* (QPSUBI  +  HSUBI *TINF  +  D5*EPSUBI*TSUR) ) ) 

C 

998  RETURN 

END 

C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  ECRMM  FORTRAN  A  -  (REV.  11/14/88) 

c  ****************************************************************** 


c 

c 

c 

c 

c 

c 


c 

999 


*  ECRMM  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT 

*  THE  MID-RADII  OF  THE  MID-LAYERS  (2  THRU  NLAYER-1) 

* 

★ 


OF  A  RIGHT-CIRCULAR  CYLINDER  USING  THE  EXPLICIT  METHOD 
OF  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL 


*  COORDINATES.  * 

****************************************************************** 
PROGRAM  LINE  801 
SUBROUTINE  ECRMM  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  / CONVEC /  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 
COMMON  /P ARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 

***  BODY  *** 

D1  -  (DKP*DZ**2) / (DKZ*RAD* *2 *DPHI* *2 ) 

D2  *  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

D3  =  (DKR*  (RAD+DR/2)  *DZ**2)  /  (DKZ*RAD*DP.**2) 

***  NO  D4 ,  D5  OR  D6  REQUIRED  *** 

TNEW  «  Tl  +  FO* ( (T2+T3-2*T1)  +  Dl* (T4+T5-2*T1)  +  D2* (T6-T1) 

1+  D3*  (T7-T1) ) 

RETURN 

END 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  ECRMO  FORTRAN  A  -  (REV.  11/14/88) 

c  ********************************************************* ********* 

it 
it 
it 


c 

c 

c 

c 


*  ECRMO  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT 

*  THE  OUTER  SURFACE  OF  THE  MID-LAYERS  (NORTH,  SOUTH) 

*  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF 

*  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL 

*  COORDINATES . 

***************************************************************** 
PROGRAM  LINE  832 


102 


SUBROUTINE  ECRMO  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  <A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX,RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF , TSUR 
C  ***  BODY  *** 

D1  =  (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2  -  (2*DKR* (RAD-DR/2) *DZ**2)/ (DKZ* (RAD-DR/4) *DR**2) 

D3  -  (2*RAD*DZ**2 ) / (DKZ* (RAD-DR/4) *DR) 

C  ***  NO  D4  REQUIRED  *** 

D5  -  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  -  1  +  FO*D3* (HSUBO  +  D5*EPSUBO) 

TNEW  -  1/D6MT1  +  FO*  (  (T2+T3-2*T1)  +  Dl*  (T4+T5-2*T1)  +  D2MT6-T1) 
1+  D3* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) ) 

C 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

c  MAP122  FORTRAN  A  -  (REV.  10/04/88) 

0  ********************************************************* 

c  *  MAP122  -  SUBROUTINE  TO  MAP  MATRIX  ONE  ONTO  MATRIX  TWO  * 

Q  ********************************************************* 

C  PROGRAM  LINE  861 

SUBROUTINE  MAP122  (DMAT1 , DMAT2 ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III, JJJ, KKK 

COMMON  /MATSIZ/  NODES , NP HI, NLA YER 

DIMENSION  DMAT1 (III, JJJ, KKK) , DMAT2 ( III , JJJ, KKK) 

DO  100  LAYER=1 , NLAYER 
DO  200  IPHI=1, NPHI 

DO  300  INCRAD=1, NODES 

DMAT2 (INCRAD, IPHI, LAYER)  -  DMAT1 (INCRAD, IPHI, LAYER) 
300  CONTINUE 

200  CONTINUE 

100  CONTINUE 
998  RETURN 
END 
C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  SHTFRM  FORTRAN  A  -  (REV.  11/14/88) 

Q  ************************************************************** 

C  *  SHTFRM  -  SUBROUTINE  TO  PRINT  THE  TEMPERATURES  OF  A  DESIG-  * 

C  *  DESIGNATED  NODE  FROM  A  DATA  FILE.  * 

Q  ************************************************************** 

C  PROGRAM  LINE  884 

SUBROUTINE  SHTFRM  (L,M, N) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z> 
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COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI,  QPSUBO  COMMON  /TIMES/ 
DELTIM, DTMAX, FINTIM, LIMIT 
DIMENSION  TEMP (15, 15, 15> 

OPEN (UNIT-13,  FILE-' ANALYT ' ) 

OPEN (UNIT=14, FILE-' ECRDAT') 

OPEN (UNIT-15,  FILE-’ ECRSHT' ) 

C  READ  IN  MATRIX  SIZE 

READ  (14,*)  NODES, NPHI, NLAYER 
C  WRITE  HEADERS  TO  DATA  FILE  15  (ERROR) 

WRITE  (15,*)  'EXPLICIT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION 
1* 

WRITE  (15,*) 

WRITE  (15,*)  'DATA  SAVED  AS  FILE:' 

WRITE  (15,*) 

WRITE  (15,*)  'CPU  TIME:' 

WRITE  (15,*) 

WRITE  (15,*) 'GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS) :', NODES, NPHI, NLAY 
1ER 

WRITE  (15,*) 

WRITE  (15,*)  'SELECTED  NODE  FOR  PRINTOUT: ', L,M, N  WRITE  (15,*) 

WRITE  (15,*)  'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :', DTMAX  WRITE 
(15,*) 

WRITE  (15,*)  'SELECTED  TIMESTEP  (SEC) DELTIM  WRITE  (15,*) 

WRITE  (15,*)  'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):  ' , FO  WRITE 
(15,*) 

WRITE  (15,*)  'OUTER  SURFACE  HEAT  FLUX  (W/M**2) : ' , QPSUBO  WRITE 
(15,*) 

WRITE  (15,*) 

WRITE  (15,15) 

15  FORMAT  (T33,'NODE') 

WRITE  (15,25) 

25  FORMAT  (T5,  'TIME' ,T17,  'DELTIM' ,T30,  'TEMPERATURE* ) 

C  READ  TIME,  DELTIM  AND  TEMPERATURE  MATRICES  FROM  FILE  14  (*DATA) 

2  READ  (14, *, END-998)  TIME, DELTIM 

DO  100  K= 1 , NLAYER 

DO  200  1=1, NODES 

DO  300  J— 1 , NPHI 

READ  (14, *, END=997)  TEMP(I,J,K) 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 

WRITE  (15,55)  TIME, DELTIM, TEMP (L,M,N) 

55  FORMAT  (Tl, F9 . 2, T15, F8 . 4 , T2 6, F14 . 8 ) 

GOTO  2 

997  WRITE  (*,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  864' 

WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  864' 

998  CLOSE  (13) 

CLOSE  (14) 

CLOSE  (15) 

RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  LNGFRM  FORTRAN  A  -  (REV.  11/05/88) 


104 


Q  ************************************************************ 

C  *  LNGFRM  -  SUBROUTINE  TO  PRINT  FULL  MATRIX  OF  TEMPERATURES  * 

C  *  FROM  DATA  FILES.  * 

Q  ************************************************************ 

C  PROGRAM  LINE  948 

SUBROUTINE  LNGFRM 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 
COMMON  /TIMES/  DELTIM,DTMAX, FINTIM, LIMIT 
DIMENSION  TEMP (15, 15, 15) 

OPEN  (UNIT-11, FILE-' ECRLNG') 

OPEN  (UNIT-14, FILE-' ECRDAT') 

READ  (14,*)  NODES, NPHI, NLAYER 

WRITE  (15,*)  ‘EXPLICIT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION 

1‘ 

WRITE  (15,*) 

WRITE  (15,*)  ‘DATA  SAVED  AS  FILE:* 

WRITE  (15,*) 

WRITE  (15,*)  'CPU  TIME:' 

WRITE  (15,*) 

WRITE  (11,*)  'GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS ):', NODES, NPHI , NLA 
IYER 

WRITE  (11,*) 

WRITE  (11,*)  'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :', DTMAX  WRITE 

(11,*) 

WRITE  (11,*)  'SELECTED  TIMESTEP  (SEC) DELTIM  WRITE  (11,*) 

WRITE  (11,*)  'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):  ' , FO  WRITE 

(11,*) 

WRITE  (11,*)  'SURFACE  HEAT  FLUX  (W/M* *2) :', QPSUBO  WRITE  (11,*) 
WRITE  (11,*) 

1  READ  (14, *,END=998)  TIME,DTIME 
DO  100  K—l, NLAYER 

DO  200  1-1, NODES 

DO  300  J— 1 , NPHI 

READ  (14, *, END-997)  TEMP(I,J,K) 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 

CALL  PRTMAT  (TIME, DTIME, TEMP , NODES , NPHI, NLAYER) 

GOTO  1 

997  WRITE (11,*)  'LNGFRM  -  EOF  READ  ERROR  IN  PROGRAM  LINE  712' 

WRITE (*,*)  'LNGFRM  -  EOF  READ  ERROR  IN  PROGRAM  LINE  712' 

998  REWIND  14 
CLOSE  (11) 

RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  PRTMAT  FORTRAN  A  -  (REV.  11/04/88) 

C  ********************************************************** 

C  *  PRTMAT  -  SUBROUTINE  TO  PRINT  THREE  D I MEND I ONAL  MATRIX  * 

C  *  TO  FILE  11  (*LONG) .  * 

Q  ********************************************************** 

C  PROGRAM  LINE  1000 
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SUBROUTINE  PRTMAT  (TIME, DTIME, DMAT, NODES, NPHI , NLAYER)  IMPLICIT 
DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  DMAT (15, 15, 15) 

WRITE  (11,15)  TIME, DTIME 

15  FORMAT  (Tl, 'TIME  -  ',F9.3, ‘  SEC ', T30, ' TIME  INCREMENT  -  ',F9.3, ’  SE 
1C) 

DO  100  K-l, NLAYER 
WRITE (11,  10 )  K 

10  FORMAT  (//Tl, ’NODE: ',T45, 'LAYER  NUMBER:  ’,14/)  DO  200  1-1, NODES 

WRITE  (11,25)  I, (DMAT (I, J, K) , J-1,NPHI) 

25  FORMAT  (Tl, 13, T10, 4 (D16 . 10, IX) ) 

200  CONTINUE 

100  CONTINUE 

WRITE  (11,*) 

WRITE  (11,*) 

998  RETURN 
END 
C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  PRTARR  FORTRAN  A  -  (REV.  11/04/88) 

Q  ********************************************************** 

C  *  PRTARR  -  SUBROUTINE  TO  PRINT  THREE  D I MEND I ONAL  MATRIX  * 

C  *  TO  FILE  11  (*LONG) .  * 

Q  ********************************************************** 

C  PROGRAM  LINE  1027 

SUBROUTINE  PRTARR  (TIME, DTIME, DMAT, NODES, NPHI, NLAYER) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  DMAT (15, 15, 15) 

WRITE  (11,15)  TIME, DTIME 

15  FORMAT  (Tl, 'TIME  -  ',F9.3,'  SEC ', T30 , 'TIME  INCREMENT  =  *,F9.3,’  SE 
1C) 

DO  100  K-l, NLAYER 
WRITE ( 11 , 10)  K 

10  FORMAT  (//Tl,  'NODE: ' ,T45,  'LAYER  NUMBER:  ’,14/)  DO  200  1=1, NODES 

WRITE  (11,25)  I, (DMAT (I, J,K) , J=1,NPHI) 

25  FORMAT  (Tl, 13, T10, 4 (D16 . 10, IX) ) 

200  CONTINUE 

100  CONTINUE 

WRITE  (11,*) 

WRITE  (11,*) 

998  RETURN 
END 
C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  ERROR  FORTRAN  A  -  (REV.  11/05/88) 

c  ************************************************************** 

C  *  ERROR  -  SUBROUTINE  TO  COMPUTE  ERROR  FOR  AND  PRINT  TEMPERA-  * 

C  *  TURES  OF  A  DESIGNATED  NODE  FROM  A  VALIDATION  DATA  * 

C  *  FILE.  * 

£  ************************************************************** 

C  PROGRAM  LINE  1025 

SUBROUTINE  ERROR  (L,M,N) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
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COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON  /TIMES/  DELTIM, DTMAX, FINTIM, LIMIT 
DIMENSION  TEMP (15, 15, 15) 

OPEN (UNIT-13, FILE= ' ANALYT ' ) 

OPEN (UNIT-14,  FILE- 'ECRDAT') 

OPEN (UNIT-15,  FILE- 'ECRERR' ) 

IF  ( ( (QPSUBO. GT. 1352) .AND. (QPSUBO . LT . 1354 ) ) .OR. ( (QPSUBO. GT. 14999) 

1. AND. (QPSUBO.LT. 15001) ) )  THEN 

CONTINUE 

ELSE 

GOTO  998 

END  IF 

C  READ  IN  MATRIX  SIZE 

READ  (14,*)  NODES, NPHI, NLAYER 
C  WRITE  HEADERS  TO  DATA  FILE  15  (ERROR) 

WRITE  (15,*)  ’EXPLICIT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION 
1’ 

WRITE  (15,*) 

WRITE  (15,*)  'DATA  SAVED  AS  FILE:’ 

WRITE  (15,*) 

WRITE  (15,*)  'CPU  TIME:' 

WRITE  (15,*) 

WRITE  (15,*) 'GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS) .NODES, NPHI, NLAY 
1ER 

WRITE  (15,*) 

WRITE  (15,*)  'SELECTED  NODE  FOR  COMPARISON: ', L,M,N  WRITE  (15,*) 
WRITE  (15,*)  'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) DTMAX  WRITE 
(15,*) 

WRITE  (15,*)  'SELECTED  TIMESTEP  (SEC) :', DELTIM  WRITE  (15,*) 

WRITE  (15,*)  'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):  ' , FO  WRITE 
(15,*) 

WRITE  (15,*)  'OUTER  SURFACE  HEAT  FLUX  ( W/M* *2)  :',  QPSUBO  WRITE 
(15,*) 

WRITE  (15,*) 

WRITE  (15,15) 

15  FORMAT  (T33, 'NODE', T48, 'ANALYTIC', T64, 'PERCENT’)  WRITE  (15,25) 

25  FORMAT  (T5, ' TIME ', T17, ' DELTIM' , T30, ' TEMPERATURE ', T46, ' TEMPERATURE ’ 
1, T65, 'ERROR'/) 

C  READ  TIME,  DELTIM  AND  TEMPERATURE  MATRICES  FROM  FILE  14  ( *DATA)  2 
READ  (14, *, END-998)  TIME, DELTIM 
DO  100  K-l, NLAYER 
DO  200  1-1, NODES 
DO  300  J— 1, NPHI 

READ  (14, *, END-995)  TEMP(I,J,K) 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 

C  READ  IN  APPROPRIATE  ANALYTIC  SOLUTIONS  FROM  FILE  13  (ANALYT) 

3  IF  (QPSUBO.LT. 1400.)  THEN 

READ  (13, 35, END-996)  EXACT 
35  FORMAT  (T1 9, F14 . 8 ) 

ELSE 

READ  (13, 45, END-997)  EXACT 
45  FORMAT  (T39, F14 . 8) 

ENDIF 
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C  COMPUTE  PERCENT  ERROR  AND  WRITE  TO  FILE  15  (ERROR) 

PE  -  (EXACT-TEMP (L,M,N) ) /EXACT  *  100. 

WRITE  (15,55)  TIME, DELTIM, TEMP (L,M,N) , EXACT, PE 

55  FORMAT  (Tl, F9 . 2, T15, F8 . 4, T2 6, F14 . 8 , T41, F14 . 8, T61, F9 . 3) 

GOTO  2 

995  WRITE  (*,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  652' 
WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  652' 

996  WRITE  (*,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  658' 
WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  658' 

997  WRITE  (*,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  661' 
WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  661' 

998  REWIND  14 
CLOSE  (13) 

CLOSE  (15) 

RETURN 

END 
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o  o  o  o 


APPENDIX  F 


BRIAN’S  METHOD  CODE 


BCR  FORTRAN  A  -  (REV.  12/08/88) 
SATELLITE  MODEL  -  VALIDATED  12/08/88 
FOR  FORTVS  APPLICATION  ONLY 
TO  EXECUTE  TYPE  'LOAD  BCR  TIMER  (START1 


2  ********************************************************** 

:  *  BCR  -  PROGRAM  TO  COMPUTE  NODE  TEMPERATURES  FOR  A  RIGHT  * 

I  *  CIRCULAR  CYLINDER  SUBJECTED  TO  CONVECTIVE  AND/OR  * 

1  *  RADIATIVE  BOUNDARY  CONDITIONS  USING  BRIAN'S  * 

:  *  METHOD  OF  FINITE  DIFFERENCE  ANALYSIS.  * 

2  **★**★**★★*★*★■**★**★***★*★★★★★★*★★■*★★*★★★★*★★*★****★*★*★** 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  TOLD (15, 15, 15) , TNEW ( 15, 15, 15) 

DIMENSION  TSTAR(15, 15,  15)  ,  T2STAR ( 15, 15, 15) 

DIMENSION  T3STAR(15, 15, 15) 

COMMON  /ARRSIZ/  III,JJJ,KKK 
COMMON  /CONDUC/  DKR,DKP,DKZ 
COMMON  / CONVEC /  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 
COMMON  /MATSIZ/  NODES , NPHI, NLAYER 
COMMON  /P ARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
COMMON  /TIMES/  DELTIM, DTMAX, FINTIM, LIMIT 
C  START  TIMER 

CALL  STIME 

OPEN  (UNIT=1 1 , FILE= ' BCRLNG ' ) 

OPEN  (UNIT=1 4 , FILE= ' BCRDAT ' ) 

OPEN  (UNIT=15 , FILE= ' BCRCPU ' ) 

c***********************  USER  DEFINED  VARIABLES  ************************ 
DELTIM  =  120.0D+00 
FINTIM  =  3000. D+00 
IPRINT  =  1 

C  ACTUAL  MATRIX  DIMENSIONS 

NODES  =10 
NPHI  -  4 
NLAYER  =  5 

C  NODE  SPECIFICATION  FOR  FILE  ESHORT 

MRAD  =  10 
MPHI  =  2 
MLAYER  =  3 

C  DECLARED  ARRAY  DIMENSIONS 

III  =  15 
JJJ  =  15 
KKK  =  15 

C  ABSORPTIVITY  COEFFICIENTS 
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ALFAN  «  0.4D+00 
ALFAS  -  0.4D+00 
ALFAO  »  0.4D+00 
C  ALBEDO  COEFFICIENT 

ALBEDO  *  0.30D+00 
C  THERMAL  CONDUCTIVITIES 

DKR  =  177. D+00 
DKP  -  177.D+00 
DKZ  -  177. D+00 
C  EMISSIVITIES 

EPSUBN  -  0.9D+00 
EPSUBS  -  0.9D+00 
EPSUBI  =  0.D+00 
EPSUBO  -  0.9D+00 
C  CONVECTION  COEFFICIENTS 

HSUBN  *  0.D+00 
HSUBS  =  0.D+00 
HSUBI  *  0.D+00 
HSUBO  -  0.D+00 
C  HEAT  FLUXES 

SOLAR  *  1353. D+00 
EIR  =  238.0D+00 
GEN  ~  1000. 

QPSUBI  =  0.D+00 
QPSUBO  =  0 .D+00 
QPSUBN  =  0 .D+00 
QPSUBS  =  0 . D+00 
C  GEOMETRY 

RMIN  =  0 . 15244D+00 
RMAX  =  0.22866D+00 
ZMAX  =  1 .D+00 

C  VIEW  FACTORS  WITH  THE  EARTH 

VERTHN  =  0 .D+00 
VERTHS  =  1 .D+00 
VERTHI  -  0 .D+00 
VERTHO  =  0 .D+00 
C  VIEW  FACTORS  WITH  SPACE 

VSPCN  =  1 .D+00 
VSPCS  =  0.D+00 
VSPCI  =  0 .D+00 
VSPCO  =  1 .D+00 
C  TEMPERATURES 

TABS  -  273. D+00 
TINIT  -  293. D+00 
TINF  «  0.D+00 
TSUR  =  4. D+00 
C  MATERIAL  PROPERTIES 

CSUBP  -  875 . 0D+00 
RHO  -  2270 . 0D+00 
C  INITIALIZE  OTHER  VARIABLES 

ICOUNT  *  0 
ITIME  -  0 
ORBTIM  =  0.D+00 
PI  >=  4 . 0D+00*DTAN  ( 1  .D+00 ) 
RAD  -  RMIN 
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SIGMA  =  5.67D-08 
TIME  =  O.D+OO 
T1  =  O.D+OO 
C  INITIALIZE  MATRICES 

CALL  BMINIT  (TOLD, TINIT) 

CALL  BMINIT  (TSTAR, TINIT) 

CALL  BMINIT  (T2STAR, TINIT) 

CALL  BMINIT  (T3STAR, TINIT) 

CALL  BMINIT  (TNEW, TINIT) 

C  SURFACE  AREA  CALCULATIONS 

S ARE AN  -  PI* (RMAX* *2  -  RMIN**2) 

SAREAS  -  PI* (RMAX**2  -  RMIN**2) 

SAREAI  -  PI* (2*RMIN) *ZMAX 
SAREAO  -  PI* (2*RMAX) *ZMAX 
C  INITIAL  CALCULATIONS 

ALFA  «  DKZ/ (RHO*CSUBP) 

DPHI  -  2 . *PI/NPHI 

DR-  (RMAX-RMIN) / (NODES-1) 

DZ  -  ZMAX/ (NLAYER-1) 

LPHI  =  360/NPHI 
QPSUBI  -  GEN/ SAREAI 
C  ORBITAL  PARAMETERS 

PERIOD  -  5440. D+00 
ECLIPS  =  2181 . 9D+00 
OMEGA  =  1 . 155D-03 
TAU  -  0 . 01*PERIOD/4 
TIME1  -  O.D+OO 
TIME2  -  PERIOD/4 .D+00 
TIME3  =  107 . 8D+00/360  *  PERIOD 
TIME4  =  (270  -  17.8) /360  *  PERIOD  -  4*TAU 
TIME5  -  (270  -  17.8J/360  *  PERIOD 
TIME6  -  270/360  *  PERIOD 

C  ESTABLISH  EXPLICIT  STABILITY  REQUIREMENT  (FOR  REFERENCE  ONLY) 

CALL  STABIL  (DTMAX) 

FO  =  ALFA*DELTIM/ (DZ**2) 

LIMIT  =  FINTIM/DELTIM  +  500 
C  WRITE  MATRIX  DIMENSIONS  TO  FILE  14  (BCRDAT) 

WRITE  (14,*)  NODES , NPH I , NLAYER 

***  PRINT  OPTION  3  -  SAVES  DESIGNATED  NODE  TEMPS  AT  SPECIFIED 

PRINT  INTERVAL.  USE  FOR  LONG  PERIOD  EVALS . 

WRITE  (11,*)  ' BCRSAT  * 

WRITE  (11,*) 

WRITE  (11,888) 

888  FORMAT  (Tl, 'TIME',T15, 'DELTIM* ,T25, ' LAYER1 ' , T40, * LAYER3 ' , T55, ' LAYE 
1R' ) 

WRITE  (11,*) 

C 

CMMMMMMMMMMMMMMMMMMM  BEGIN  TEMPERATURE  COMPUTATIONS  MMMMMMMMMMMMMMMMMMMM 
C  START  CLOCK  TIMER  (MAINFRAME  VERSIONS  OF  CODE  ONLY) 

WRITE  (11,*)  'ENTERING  LOOP  TIME' 

CALL  GTIME  (1,11) 

DO  100  1-1, LIMIT 

ICOUNT-ICOUNT+1 

TIME-TIME+DELTIM 
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ORBTIM  -  ORBTIM  +  DELTIM 

IF  (ORBTIM. GE. PERIOD)  ORBTIM  =  ORBTIM  -  PERIOD 
C  SURFACE  FLUX  CALCULATIONS  (TIME  DEPENDENT) 

IF  ( (ORBTIM. GE.O) .AND. (ORBTIM. LE.TIME2) )  THEN 
QPSUBN  =  ALFAN*SOLAR*DCOS (OMEGA*ORBTIM) 

QPSUBS  =  ALFAS* (EIR  +  ALBEDO* SOLAR*DCOS (OMEGA* ORBTIM) ) 
QPSUBO  -  0 . 5*ALFAO*SOLAR*DSIN (OMEGA*ORBTIM) 

ELSEIF  ( (ORBTIM. GT.TIME2) .AND. (ORBTIM . LE . TIME3) ) THEN 
QPSUBN  -  0. 

QPSUBS  =  ALFAS* (EIR  +  (ALBEDO+DCOS (OMEGA*ORBTIM) ) *SOLAR) 
QPSUBO  -  0 . 5*ALFAO*SOLAR*DSIN (OMEGA*ORBTIM) 

ELSEIF  ( (ORBTIM. GT.TIME3) .AND. (ORBTIM. LE.TIME4) )  THEN 
QPSUBN  -  0. 

QPSUBS  -  ALFAS*EIR 
QPSUBO  -  0.D+00 

ELSEIF  ( (ORBTIM. GT.TIME4) .AND. (ORBTIM. LE.TIME5) )  THEN 
QPSUBN  -=  0.D+00 
QPSUBS  -  ALFAS* (EIR 

1  +  DABS (ALBEDO* SOLAR*DS IN (OM£GA*ORBTIM) ) 

1  * (1-DEXP (- (ORBTIM-TIME4) /TAU) ) ) 

QPSUBO  =  0. 5 *ALFAO* DABS (ALBEDO* SOLAR 
1  +  DSIN (OMEGA*ORBTIM) 

1  * (1-DEXP (- (ORBTIM-TIME4) ) /TAU) ) 

ELSEIF  ( (ORBTIM. GT.TIME5) .AND. (ORBTIM. LT.TIME6) )  THEN 
QPSUBN  «  0.D+00 
QPSUBS  =  ALFAS* (EIR 

1  +  DABS (ALBEDO*SOLAR*DSIN(OMEGA*ORBTIM) ) ) 

QPSUBO  =  0 . 5*ALFAO*DABS (SOLAR*DSIN (OMEGA* ORBTIM) ) 

ELSEIF  (ORBTIM. GT.TIME6)  THEN 

QPSUBN  -  ALFAN*DABS(SOLAR*DCOS(OMEGA*ORBTIM) ) 

QPSUBS  -  ALFAS* (EIR 

1  +  DABS (ALBEDO* SOLAR*DS IN (OMEGA*ORBTIM) ) ) 

QPSUBO  -  0 . 5*ALFAO*DABS (SOLAR*DSIN (OMEGA* ORBTIM) ) 

END  IF 

C  CALL  MAIN  SUBROUTINES 

CALL  STEP 1  (TOLD, TSTAR) 

WRITE  (11,*)  'TSTAR' 

CALL  PRTMAT  (TIME, DELTIM, TSTAR, NODES , NPHI ,  NLAYER) 

CALL  STEP2  (TOLD, TSTAR, T2STAR) 

WRITE  (11,*)  'T2STAR' 

CALL  PRTMAT  (TIME, DELTIM, T2STAR, NODES, NPHI, NLAYER) 

CALL  STEP 3  (TOLD, TSTAR, T2STAR, T3STAR) 

WRITE  (11,*)  'T3STAR' 

CALL  PRTMAT  (TIME, DELTIM, T3STAR, NODES, NPHI, NLAYER) 

CALL  STEP4  (TOLD, TSTAR, T2STAR,  T3STAR, TNEW) 

WRITE  (11,*)  'TNEW' 

CALL  PRTMAT  (TIME, DELTIM, TNEW,  NODES,  NPHI , NLAYER) 

MAP  NEW  TEMPERATURE  MATRIX  ONTO  OLD  TEMPERATURE  MATRIX 
CALL  MAP  122  (TNEW, TOLD) 

****  GENERATE  PRINTOUT  **** 

IF  ( ICOUNT . GE . IPRINT )  THEN 
I COUNT  -  0 

WRITE  (14,*)  TIME, DELTIM 
C  ****  CONVERT  TNEW  TO  EXCESS  TEMPERATURE  PRIOR  TO  PRINTING  **** 
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c 

c 

c 

400 

300 

200 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

889 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DO  200  LAYER=1, NLAYER 
DO  300  INCRAD=1, NODES 
DO  400  IPHI«1,NPHI 

TNEW(INCRAD, IPHI, LAYER)  -  TNEW ( INCRAD, IPHI ,  LAYER  1)  -  TINIT 
****  PRINT  OPTION  1  -  USE  WITH  CMPSHT, COMPAR, LNGFRM, SHTFRM, BCRERR 

SHORT  EVALUATION  TIMES  ONLY  «400  SEC) 

WRITE  (14,*)  TNEW (INCRAD, IPHI, LAYER) 

CONTINUE 

CONTINUE 

CONTINUE 

***  PRINT  OPTION  2  -  SAVES  COMPLETE  MATRIX  AT  SPECIFIED  PRINT 

INTERVAL  -  SWITCH  OFF  ALL  SUBROUTINES  LISTED 
UNDER  PRINT  OPTION  1  FIRST. 

WRITE  (11,*)  'BCR  SATELLITE  MODEL' 

WRITE  (*,*) 

CALL  PRTMAT  (TIME, DELTIM, TNEW, NODES, NPHI, NLAYER) 

***  PRINT  OPTION  3  -  SAVES  DESIGNATED  NODE  TEMPS  AT  SPECIFIED 

PRINT  INTERVAL.  USE  FOR  LONG  PERIOD  EVALS . 
WRITE  (11,889)  TIME, DELTIM, TNEW (5,1,1), TNEW (5,1,3), TNEW (5,1,5) 
FORMAT  (T1,F9.3,T15,F9.3,T25,F12.6,T40,F12.6,T55,F12.6) 

********  RE-SPECIFY  PRINT  INTERVALS  ******** 

IF  (TIME.GE. 99 . 9)  THEN 
IPRINT  *  200 
DELTIM  *  20. 

FO  «  ALFA*DELTIM/ (DZ**2) 

ELSEIF  (TIME.GE. 9. 9)  THEN 
IPRINT  *  100 
DELTIM  =  10. 

FO  =  ALFA*DELTIM/ (D2**2) 

ELSEIF  (TIME.GE. 0.99)  THEN 
IPRINT  =  10 
DELTIM  =  1. 

FO  =  ALFA*DELTIM/ (DZ**2) 

ENDIF 

ENDIF 

TIME  INTERVAL  DELIMITER 


IF  (TIME .GE.FINTIM)  GOTO  101 

100  CONTINUE 

C  STOP  CLOCK  TIMER  (MAINFRAME  VERSIONS  OF  CODE  ONLY) 

101  CONTINUE 
CALL  GTIME  (1,11) 

WRITE  (11,*)  'EXITED  LOOP' 

CLOSE  (14) 

CLOSE  (15) 

C  WRITE  APPROPRIATE  DATA  FILES 
C  CALL  CMPSHT 

C  CALL  SHTFRM  (MRAD, MPHI,  MLAYER) 

C  CALL  COMPAR 

C  CALL  ERROR  (MRAD, MPHI, MLAYER) 

C  CALL  LNGFRM 

CALL  GTIME (1,11) 

999  STOP 
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END 

C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  BMINIT  FORTRAN  A  -  (REV.  9/28/88) 

Q  A************************************************************ 

C  *  BMINIT  -  SUBROUTINE  TO  INITIALIZE  TEMPERATURE  MATRIX  TO  A  * 

C  *  SPECIFIED  VALUE  (BRIAN'S  METHOD  ARRAY  FORMAT)  * 

Q  ************************************************************* 

C  PROGRAM  LINE  172 

SUBROUTINE  BMINIT  (DMAT, TINIT) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 
DIMENSION  DMAT (III, JJJ,KKK) 

DO  100  LAYER-1, KKK 

DO  200  IPHI— 1, JJJ 

DO  300  INCRAD-1, III 

DMAT (INCRAD, IPHI, LAYER)  -  TINIT 
300  CONTINUE 

200  CONTINUE 

100  CONTINUE 

998  RETURN 

END 
C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  STABIL  FORTRAN  A  (REV.  11/14/88) 

c  ★★******★***★★★**★**★★**★***★***★★★★***★★***★*★★*****★**★**★** 

C  *  STABIL  -  SUBROUTINE  TO  COMPUTE  THEORETICAL  MAXIMUM  TIME  * 

C  *  INCREMENT  ALLOWED  TO  MAINTAIN  STABILITY  IN  EXPLICIT  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  OF  A  CYLINDER  IN  3-D  * 

C  *  POLAR  CYLINDRICAL  COORDINATES.  * 

C  a************************************************************* 

C  PROGRAM  LINE  196 

SUBROUTINE  STABIL  (DTMAX) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  DT ( 6 ) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  / CONVEC /  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI  COMMON 
/HEAT/  ALFA,FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO  COMMON  /RADN/ 

EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
C  ***  BODY  *** 

DO  50  1=1, 6 
DT ( I )  =  0.D+00 
50  CONTINUE 

DUMMY  =  (DZ  *  *2 ) / ALFA 

C  END  LAYERS,  INNER  SURFACE  NODES 

DCREI  -  1  +  (2*DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 

1+  (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/ 4 ) *DR* *2 ) 

DT ( 1 )  «  DUMMY/ <2*DCREI) 

DTMAX  =  DT ( 1 ) 

C  END  LAYERS,  MID-RADII  NODES 

DCREM  -  1  +  2*(DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 

1+  (DKR* (RAD-DR/2) *DZ**2) / (2 *DKZ *RAD*DR* *2 ) 
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2  +  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

DT (2)  -  DUMMY/ (2*DCREM) 

C  END  LAYERS,  OUTER  SURFACE  NODES 

DCREO  =  1  +  2* (DKP*DZ**2) / (2*DKZ* (RAD-DR/ 4) *RAD*DPHI**2) 

1+  (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

DT (3)  =  DUMMY/ (2*DCREO) 

C  MID-LAYERS,  INNER  SURFACE  NODES 

DCRMI  -  2  +  2* (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

1+  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

DT (4)  =  DUMMY /DCRMI 
C  MID-LAYERS,  MID-RADII  NODES 

DCRMM  «  2  +  2* (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 

1+  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

2+  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

DT (5)  -  DUMMY /DCRMM 
C  MID-LAYERS,  OUTER  SURFACE  NODES 

DCRMO  =  2  +  2* (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

1+  (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

DT (6)  =  DUMMY / DCRMO 
DO  100  1=1,6 

IF  { (DT(I) .GT.O) .AND. (DTMAX.GT.DT (I) ) )  DTMAX  =  DT ( I ) 

WRITE  (*,*)  'FROM  STABIL,  I , DT ( I) ' , I , DT ( I) 

100  CONTINUE 

IF  (DTMAX. LE.O)  WRITE  (*,*)  'STABIL  -  DTMAX  LE  ZERO' 

WRITE  (*,*)  'FROM  STABIL,  DTMAX  =', DTMAX 
998  RETURN 

END 
C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
STEP1  FORTRAN  A  -  (REV.  10/12/88) 

Q  ************************************************************** 

C  *  STEP1  -  THIS  SUBROUTINE  CONSTRUCTS  THE  TEMPERATURE  MATRIX  * 

C  *  FOR  THE  FIRST  INTERMEDIATE  STEP  (STAR  LEVEL)  IN  * 

C  *  THE  Z  DIRECTION  OF  A  3-D,  POLAR-CYLINDRICAL  ADAP-  * 

C  *  TATION  OF  BRIAN'S  METHOD  OF  FINITE  DIFFERENCE  * 

C  *  ANALYSIS  FOR  A  RIGHT  CIRCULAR  CYLINDER  WITH  A  * 

C  *  SPECIFIED  INNER  SURFACE  TEMPERATURE  AND  CONSTANT  * 

C  *  OUTER  SURFACE  HEAT  FLUX.  * 

Q  ************************************************************** 

C  PROGRAM  LINE  259 

SUBROUTINE  STEP1  (TOLD, TSTAR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 
COMMON  /CONDUC/  DKR, DKP, DKZ 
COMMON  /CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN,  QPSUBS, QPSUBI,  QPSUBO 
COMMON  /MATSIZ/  NODES, NPHI, NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR  D 

DIMENSION  TOLD (15, 15, 15) ,TSTAR(15, 15, 15) 
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DIMENSION  AA (15) ,BB(15) ,  CC ( 1 5 ) , DD (15), TEMP (15) 
CIIIIIIIIIIIIIIIIIIIIIIH  INNER  SURFACE  NODES  IIIIIIIIIIIIIIIIIIIIIIIIII 
INCRAD  «  1 
RAD  -  RMIN 
C 

c  ********  inner  SURFACE,  FIRST  PHI  ******** 

IPHI  -  1 

c  ********  INNER  SURFACE,  FIRST  PHI,  BOTTOM  LAYER  ******** 

LAYER  -  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, NPHI,  LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  -  TOLD ((INCRAD+1), IPHI, LAYER) 

CALL  BCREI1 (AA (LAYER) , BB (LAYER) ,CC (LAYER) ,DD (LAYER) )  C 
C  ********  INNER  SURFACE,  FIRST  PHI,  MID-LAYERS  ******** 

DO  100  LAYER-2, (NLAYER-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, NPHI, LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCRMI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

100  CONTINUE 
C 

C  ********  INNER  SURFACE,  FIRST  PHI,  TOP  LAYER  ******** 

LAYER  =  N LAYER 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, NPHI, LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1), LAYER) 

T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NLA YER, AA, BB, CC, DD, TEMP ) 

DO  110  LAYER-1, NLAYER 

TSTAR( INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 

110  CONTINUE 

C 

C  ********  INNER  SURFACE, MID-PHIS  ******** 

DO  200  IPHI-2, (NPHI-1) 

c  ********  INNER  SURFACE,  MID-PHIS,  BOTTOM  LAYER  ******** 

LAYER  =  1 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI -1) , LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  -  TOLD ((INCRAD+1), IPHI, LAYER) 

CALL  BCREI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) ,DD (LAYER) ) 

C 

c  ********  INNER  SURFACE,  MID-PHIS,  MID-LAYERS  ******** 

DO  210  LAYER-2, (NLAYER-1) 

T1  «  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD,  (IPHI-1),  LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  -  TOLD ((INCRAD+1), IPHI, LAYER) 

CALL  BCRMI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

210  CONTINUE 
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c 

c  ********  inner  surface,  mid-phis,  top  layer  ******** 

LAYER  =  NLAYER 

T1  -  TOLD (INCRAD,IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-1) .LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  «  TOLD ( (INCRAD+1) ,IPHI, LAYER) 

CALL  BCREI1 (AA ( LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

C 

c  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NLAYER, AA, BB, CC, DD, TEMP) 

DO  230  LAYER- 1, NLAYER 

TSTAR (INCRAD, IPHI, LAYER)  -  TEMP (LAYER) 

230  CONTINUE 

C 

200  CONTINUE 
C 

C  ********  inner  surface,  last  phi  ******** 

IPHI  =  NPHI 
C 

C  ********  INNER  SURFACE,  LAST  PHI,  BOTTOM  LAYER  ******** 

LAYER  -  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) .LAYER) 

T3  -  TOLD (INCRAD, 1, LAYER) 

T4  -  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

C 

C  ********  inner  SURFACE,  LAST  PHI,  MID-LAYERS  ******** 

DO  30 C  LAYER-2, ( NLAYER- 1) 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  -  TOLD (INCRAD, 1, LAYER) 

T4  -  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCRMI1 (AA (LAYER) , BB (LAYER) ,CC (LAYER) , DD (LAYER) ) 

30 C  CONTINUE 

C 

c  ********  INNER  SURFACE,  LAST  PHI,  TOP  LAYER  ******** 

LAYER  =  NLAYER 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, 1, LAYER) 

T4  -  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NLAYER, AA, BB, CC, DD, TEMP) 

DO  350  LA YER-1, NLAYER 

TSTAR (INCRAD, IPHI, LAYER)  -  TEMP (LAYER) 

350  CONTINUE 

C 

C 

CMMMMMMMMMMMMMMMMMMMMMMMMMM  MID-RADIUS  NODES  MMMMMMMMMMMMMMMMMMMMMMMMMMM 
DO  400  INCRAD-2, (NODES-1) 

RAD  -  RMIN  +  (INCRAD-1) *DR 
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oo  on  no*  oo  not*  o  oo 


c  ********  mid-radii,  first  phi  ******** 

IPHI  -  1 

********  MID-RADII,  FIRST  PHI,  BOTTOM  LAYER  ******** 

LAYER  -  1 

T1  -  TOLD (INCRAD, IPHI,  LAYER) 

T2  -  TOLD (INCRAD, NPHI, LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  -  TOLD ((INCRAD-1), IPHI, LAYER) 

T5  -  TOLD ((INCRAD+1), IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) ,BB (LAYER) ,CC (LAYER) ,DD (LAYER) )  C 
********  MID-RADII,  FIRST  PHI,  MID-LAYERS  ******** 

DO  500  LAYER-2, (NLAYER-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, NPHI, LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  -  TOLD ((INCRAD-l), IPHI, LAYER) 

T5  -  TOLD ( (INCRAD+1) , IPHI,  LAYER) 

CALL  BCRMM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

00  CONTINUE 

********  MID-RADII,  FIRST  PHI,  TOP  LAYER  ******** 

LAYER  =  N LAYER 

T1  -  TOLD (INCRAD, IPHI,  LAYER) 

T2  =  TOLD (INCRAD, NPHI, LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  -  TOLD ( (INCRAD-1) , IPHI,  LAYER) 

T5  -  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NLA YER,AA,BB,CC,DD, TEMP) 

DO  475  LAYER- 1 , NLAYER 

TSTAR (INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 

75  CONTINUE 

********  MID-RADII,  MID-PHIS  ******** 

DO  600,  IPHI-2, (NPHI-1 ) 

********  MID-RADII,  MID-PHIS,  FIRST  LAYER  ******** 

LAYER  -  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) .LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  -  TOLD ((INCRAD+1), IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

********  MID-RADII,  MID-PHIS,  MID-LAYERS  ******** 

DO  700  LAYER-2, (NLAYER-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-1) .LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1), LAYER) 

T4  -  TOLD( (INCRAD-1), IPHI, LAYER) 

T5  -  TOLD ((INCRAD+1), IPHI, LAYER) 
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CALL  BCRMM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
700  CONTINUE 

C 

c  ********  MID-RADII,  mid-phis,  top  layer  ******** 

LAYER  =  N LAYER 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  -  TOLD (INCRAD, (IPHI+l) , LAYER) 

T4  -  TOLD ((INCRAD-1), IPHI, LAYER) 

T5  -  TOLD ((INCRAD+l), IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) ,DD (LAYER) ) 
C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NLAYER, AA, BB, CC, DD, TEMP) 

DO  575  LAYER-1, NLAYER 

TSTAR(INCRAD, IPHI, LAYER)  -  TEMP (LAYER) 

575  CONTINUE 

600  CONTINUE 

C 

c  ********  MID-RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 
C 

C  ********  MID-RADII,  LAST  PHI,  FIRST  LAYER  ******** 

LAYER  =  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, 1, LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  =  TOLD ( (INCRAD+l)  ,  IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ********  MID-RADII,  LAST  PHI,  MID-LAYERS  ******** 

DO  800  LAYER-2, ( NLAYER- 1) 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  -  TOLD ( INCRAD, 1, LAYER) 

T 4  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  -  TOLD ((INCRAD+l), IPHI, LAYER) 

CALL  BCRMM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
800  CONTINUE 

C 

C  ********  MID-RADII,  LAST  PHI,  TOP  LAYER  ******** 

LAYER  -  NLAYER 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  -  TOLD (INCRAD, 1, LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  =  TOLD ((INCRAD+l), IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NLAYER, AA, BB, CC, DD, TEMP) 

DO  675  LAYER- 1, NLAYER 

TSTAR (INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 

675  CONTINUE 
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400  CONTINUE 
C 

COOOOOOOOOOOOOOOOOOOOOOOO  OUTER  SURFACE  NODES  OOOOOOOOOOOOOOOOOOOOOOOOOO 
INCRAD  -  NODES 
RAD  =  RMAX 
C 

C  ********  OUTER  RADIUS,  FIRST  PHI  ******** 

IPHI  -  1 
C 

c  ********  OUTER  RADIUS,  FIRST  PHI,  BOTTOM  LAYER  ******** 

LAYER  -  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD ( INCRAD, NPHI, LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  -  TOLD ((INCRAD-1), IPHI, LAYER) 

CALL  BCRE01  (AA (LAYER) , BB (LAYER) , CC (LAYER) ,DD (LAYER) ) 

C 

C  ********  OUTER  RADIUS,  FIRST  PHI,  MID-LAYERS  ******** 

DO  900  LAYER-2, (NLAYER-1) 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, NPHI, LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  «  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRM01  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

900  CONTINUE 

C 

C  ********  OUTER  RADIUS,  FIRST  PHI,  TOP  LAYER  ******** 

LAYER  -  N LAYER 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T 2  -  TOLD (INCRAD,NPHI, LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRE01  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

C 

C  ****  COMPUTE  NODE  TEMPERATURES  *** 

CALL  TRIDAG  ( 1, NLAYER, AA, BB, CC, DD, TEMP) 

DO  775  LAYER- 1, NLAYER 

TSTAR( INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 

775  CONTINUE 

C 

C  ********  OUTER  SURFACE,  MID-PHIS  ******** 

DO  1000  IPHI-2, (NPHI-1) 

C 

C  ********  OUTER  RADIUS,  MID-PHIS,  FIRST  LAYER  ******** 

LAYER  -  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-l) , LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRE01  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

C 

C  ********  OUTER  RADIUS,  MID-PHIS,  MID-LAYERS  ******** 

DO  1100  LAYER-2, (NLAYER-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-1) , LAYER) 
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T3  *  TOLD (INCRAD, (IPHI+1) .LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRMOl  (AA ( LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
1100  CONTINUE 

C 

c  ********  OUTER  RADIUS,  MID-PHIS,  TOP  LAYER  ******** 

LAYER  =  N LAYER 

T1  «  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-1) .LAYER) 

T3  -  TOLD (INCRAD, (IPHI+1) .LAYER) 

T4  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCREOl  (AA (LAYER) , BB (LAYER) , CC (LAYER) ,DD (LAYER) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NLAYER, AA, BB, CC, DD, TEMP) 

DO  875  LAYER* 1, NLAYER 

TSTAR( INCRAD, IPHI, LAYER)  -  TEMP (LAYER) 

875  CONTINUE 

1000  CONTINUE 

C 

C  ********  OUTER  SURFACE,  LAST  PHI  ******** 

IPHI  *  NPHI 
C 

C  ********  OUTER  RADIUS,  LAST  PHI,  BOTTOM  LAYER  ******** 

LAYER  =  1 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) .LAYER) 

T3  *=  TOLD  (INCRAD,  1,  LAYER) 

T4  *  TOLD ((INCRAD-1), IPHI, LAYER) 

CALL  BCREOl  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

c  ********  OUTER  RADIUS,  LAST  PHI,  MID-LAYERS  ******** 

DO  1200  LAYER=2, (NLAYER- 1) 

T1  -  TOLD (INCRAD, IPHI,  LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, 1, LAYER) 

T4  =  TOLD ( (INCRAD-1), IPHI, LAYER) 

CALL  BCRMOl  (AA (LAYER) , BB (LAYER) , CC (LAYER) ,DD (LAYER) ) 
1200  CONTINUE 

C 

C  ********  OUTER  RADIUS,  LAST  PHI,  TOP  LAYER  ********* 

LAYER  =  NLAYER 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) .LAYER) 

T3  =  TOLD (INCRAD, 1, LAYER) 

T4  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCREOl  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NLAYER, AA, BB, CC, DD, TEMP) 

DO  975  LAYER=1, NLAYER 

TSTAR (INCRAD, IPHI, LAYER)  -  TEMP (LAYER) 

975  CONTINUE 

998  RETURN 

END 
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c 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  STEP 2  FORTRAN  A  -  (REV.  10/18/86) 

c  ****************************************************** 

C  *  STEP2  -  SECOND  INTERMEDIATE  STEP  (PHI  DIRECTION)  * 

C  *  OF  BRIAN'S  METHOD  OF  FINITE  DIFFERENCE  * 

C  *  ANALYSIS  FOR  A  RIGHT  CIRCULAR  CYLINDER.  * 

C  ****************************************************** 

C  PROGRAM  LINE  614 

SUBROUTINE  STEP2  (TOLD, TSTAR, T2STAR) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI,NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
DIMENSION  TOLD-(15,  15, 15)  ,  TSTAR  (15, 15,  15) ,  T2STAR  (15,15,15) 

DIMENSION  AA (15), BB (15) ,CC(15) , DD (15), TEMP (15) 

C 

C1111111111111111111111111111  first  LAYER  111111111111111111111111111111 
LAYER  =  1 
C 

c  ********  FIRST  layer,  inner  radius  ******** 

INCRAD  =  1 
RAD  *=  RMIN 
DO  100  IPHI=1 , NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  TOLD ((INCRAD+1), IPHI, LAYER) 

CALL  BCREI2  (AA (IPHI) , BB (IPHI) , CC (IPHI) , DD (IPHI) ) 

100  CONTINUE 
C 

C  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB(1)  =  BB ( 1 ) +AA ( 1 ) 

AA(1)  -  0.D+00 

BB (NPHI)  -  BB (NPHI) +CC (NPHI) 

CC (NPHI)  =  0.D+00 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NPHI, AA, BB, CC, DD, TEMP) 

DO  150  IPHI«1,NPHI 

T2STAR( INCRAD, IPHI, LAYER)  «  TEMP (IPHI) 

150  CONTINUE 

C 

C  ********  FIRST  LAYER,  MID-RADII  ******** 

DO  200  INCRAD-2, (NODES -1) 

RAD  -  RMIN  +  (INCRAD-1) *DR 
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DO  300  IPHI«1,NPHI 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1)) 

T3  -  TSTAR(INCRAD, IPHI, LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  -  TOLD ( (INCRAD+1), IPHI, LAYER) 

CALL  BCREM2  (AA(IPHI) , BB (IPHI) , CC (IPHI) , DD (IPHI) ) 

300  CONTINUE 

C 

C  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB (1)  -  BB ( 1 ) +AA ( 1 ) 

AA(1)  -  0.D+00 

BB(NPHI)  -  BB (NPHI) +CC (NPHI) 

CC(NPHI)  =  0.D+00 
C 

c  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NPHI, AA, BB, CC, DD, TEMP) 

DO  375  IPHI— 1, NPHI 

T2STAR(INCRAD, IPHI,  LAYER)  =  TEMP  (IPHI) 

375  CONTINUE 

200  CONTINUE 
C 

C  ********  FIRST  LAYER,  OUTER  RADIUS  ******** 

INCRAD  =  NODES 

RAD  -  RMAX 

DO  400  IPHI»1,NPHI 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  «  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRE02  (AA ( IPHI ), BB (IPHI) , CC (IPHI)  ,  DD (IPHI) ) 

400  CONTINUE 

C 

C  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB  ( 1 )  -  BB  ( 1 )  +AA  ( 1 ) 

AA ( 1 )  =  0.D+00 

BB (NPHI)  =  BB (NPHI) +CC (NPHI) 

CC (NPHI)  -  0.D+00 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NPHI, AA, BB, CC, DD, TEMP ) 

DO  475  IPHI— 1 , NPHI 

T2STAR( INCRAD, IPHI, LAYER)  -TEMP(IPHI) 

475  CONTINUE 

C 

CMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  MID — LAYERS  ^©^MMMMMMMMMMMMMMMMMMMMMMMMMMMM 
DO  500  LAYER-2, (NLAYER-1) 

C 

C  ********  MID  LAYERS,  INNER  RADIUS  ******** 

INCRAD  =  1 
RAD  -  RMIN 
DO  600  IPHI-1,NPHI 

T1  -  TOLD  (INCRAD, IPHI, LAYER) 

T2  -  TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 
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600 

C 

C 


C 

c 


675 

C 

C 


800 

C 

C 


C 

C 


875 

700 

C 

c 


900 

C 


T4  =  TSTARdNCRAD,  IPHI,  LAYER) 

T5  -  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCRMI2  (AA (IPHI) , BB ( IPHI) , CC ( IPHI) , DD (IPHI ) ) 

CONTINUE 


****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB ( 1 )  *  BB (1) +AA (1) 

AA ( 1 )  =  0.D+00 

BB(NPHI)  -  BB (NPHI) +CC (NPHI) 

CC(NPHI)  -  0.D+00 

****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NPHI, AA, BB, CC, DD, TEMP ) 

DO  675  IPHI=1,NPHI 

T2 STAR (INCRAD, IPHI, LAYER)  =TEMP(IPHI) 

CONTINUE 

********  MID-LAYERS,  MID-RADII  ******** 

DO  700  INCRAD=2, (NODES-1) 

RAD=RMIN+ ( INCRAD-1 ) *DR 
DO  800  IPHI=1 , NPHI 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR( INCRAD, IPHI, (LAYER+1) )  • 

T3  =  TSTAR(INCRAD, IPHI, (LAYER-1) > 

T4  «  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  TOLD ( (INCRAD-1), IPHI,  LAYER) 

T6  -  TOLD ((INCRAD+1), IPHI, LAYER) 

CALL  BCRMM2  (AA ( IPHI ), BB ( IPHI) , CC (IPHI ), DD (IPHI ) ) 
CONTINUE 

****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB ( 1 )  =  BB ( 1 ) +AA ( 1 ) 

AA<1)  =  0.D+00 

BB (NPHI)  =  BB (NPHI) +CC (NPHI) 

CC (NPHI)  =  0.D+00 

****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NPHI, AA,BB,CC,DD, TEMP) 

DO  875  IPHI=1, NPHI 

T2STAR (INCRAD, IPHI, LAYER)  =  TEMP (IPHI) 

CONTINUE 

CONTINUE 


********  MID-LAYERS,  OUTER  RADIUS  ******** 

INCRAD  =  NODES 

RAD  «  RMAX 

DO  900  IPHI*1 , NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T4  =  TSTARdNCRAD,  IPHI,  LAYER) 

T5  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRM02  (AA (IPHI) , BB (IPHI) , CC (IPHI) , DD (IPHI) ) 
CONTINUE 
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c  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB (1)  =  BB (1) +AA(1) 

AA ( 1 )  -  0.D+00 

BB(NPHI)  =  BB (NPHI) +CC (NPHI) 

CC(NPHI)  =  0.D+00 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NPHI, AA, BB, CC, DD, TEMP) 

DO  975  IPHI“1, NPHI 

T2ST AR { INCRAD, IPHI , LAYER)  -  TEMP(IPHI) 

975  CONTINUE 

500  CONTINUE 
C 

CUUUUUUUUUUUUUUUUUUUUUUUUUUUU  TOP  LAYER  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 
LAYER  -  NLAYER 
C 

C  ********  TOP  layer,  inner  radius  ******** 

INCRAD  -  1 
RAD  -  RMIN 
DO  1000  IPHI=1 , NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR(INCRAD, IPHI, LAYER) 

T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI2  (AA (IPHI) , BB ( IPHI) , CC (IPHI) , DD (IPHI ) ) 

1000  CONTINUE 
C 

C  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

C 

BB ( 1 )  =  BB ( 1 ) +AA ( 1 ) 

AA ( 1 )  =  0.D+00 

BB (NPHI )  =  BB (NPHI) +CC (NPHI) 

CC (NPHI)  -  0.D+00 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

C 

CALL  TRIDAG  ( 1 , NPHI , AA, BB, CC, DD, TEMP) 

DO  1075  IPHI=1 , NPHI 

T2STAR (INCRAD, IPHI, LAYER)  =  TEMP (IPHI) 

1075  CONTINUE 

C 

C  ********  T0P  LAYER,  MID-RADII  ******** 

DO  1100  INCRAD=2, (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 
DO  1200  IPHI*1 , NPHI 

T1  =  TOLD (INCRAD, IPHI,  LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1)) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  -  TOLD ( (INCRAD-1),  IPHI,  LAYER) 

T5  -  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREM2  (AA (IPHI) , BB ( IPHI ), CC (IPHI ), DD (IPHI ) ) 

1200  CONTINUE 

C 

C  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB (1)  «  BB ( 1 ) +AA ( 1 ) 

AA (1)  «  0.D+00 
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BB(NPHI)  -  BB (NPHI) +CC (NPHI) 

CC(NPHI)  -  O.D+OO 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NPHI , AA, BB, CC, DD, TEMP) 

DO  1275  IPHI*1 , NPHI 

T2STAR ( INCRAD, IPHI, LAYER)  -  TEMP(IPHI) 

1275  CONTINUE 

1100  CONTINUE 
C 

C  ********  TOP  LAYER,  OUTER  RADIUS  ******** 

INCRAD  -  NODES 

RAD  -  RMAX 

DO  1300  IPHI«1,NPHI 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T3  «  TSTAR (INCRAD, IPHI, LAYER) 

T4  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRE02  (AA (IPHI ), BB (IPHI) , CC (IPHI) , DD (IPHI) ) 

1300  CONTINUE 

C 

c  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB ( 1 )  -  BB ( 1 ) +AA ( 1 ) 

AA  ( 1 )  ■=  0.D+00 

BB(NPKI)  -  BB (NPHI) +CC (NPHI) 

CC (NPHI)  -  0.D+00 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NPHI , AA, BB, CC, DD, TEMP ) 

DO  1375  IPHI»1,NPHI 

T2STAR( INCRAD, IPHI, LAYER)  =  TEMP (IPHI) 

1375  CONTINUE 

998  RETURN 

END 
C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  STEP 3  FORTRAN  A  -  (REV.  10/17/88) 

Q  ****************************************************** 

C  *  STEP3  -  THIRD  INTERMEDIATE  STEP  (RADIAL  DIRECTION)  * 

C  *  OF  BRIAN'S  METHOD  (LONG  FORM)  OF  FINITE  * 

C  *  DIFFERENCE  ANALYSIS  FOR  A  RIGHT  CIRCULAR  * 

C  *  CYLINDER  WITH  CONSTANT  SURFACE  HEAT  FLUX  * 

C  *  AND  SPECIFIED  INNER  SURFACE  TEMPERATURE.  * 

c  ****************************************************** 

C  PROGRAM  LINE  870 

SUBROUTINE  STEP3  (TOLD, TSTAR, T2STAR,  T3STAR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 
COMMON  /CONDUC/  DKR, DKP, DKZ 
COMMON  / CONVEC /  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK,  ZMAX,  LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI ,  QPSUBO 
COMMON  /MATSIZ/  NODES, NPHI, NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI , LAYER 
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COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 
DIMENSION  TOLD (15, 15, 15) , TSTAR (15, 15, 15) ,T2STAR(15, 15, 15) 

DIMENSION  T3STAR(15, 15, 15) 

DIMENSION  AA (15) , BB ( 1 5 ) , CC (15) ,DD (15) , TEMP (15) 

C 

Cllllllllllllllllllllllllllll  BOTTOM  LAYER  11111111111111111111111111111 
LAYER  -  1 
C 

C  ********  BOTTOM  layer,  first  ray  ******** 

IPHI  -  1 

c 

C  ********  BOTTOM  layer,  first  ray,  inner  node  ******** 

INCRAD  -  1 
RAD  -  RMIN 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR( INCRAD, NPHI, LAYER) 

T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  -  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCREI3  (AA ( INCRAD ), BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD ) ) 
C 

C  ********  BOTTOM  LAYER,  FIRST  RAY,  MID-NODES 

********  DO  100  INCRAD=2 , (NODES-1) 

RAD  -  RMIN  +  (INCRAD-1) *DR 

Tl  =  TOLD (INCRAD,  IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2 STAR (INCRAD, NPHI, LAYER) 

T5  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  »=  T2STAR( INCRAD,  IPHI,  LAYER) 

CALL  BCREM3  (AA ( INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
100  CONTINUE 

C 

C  ********  BOTTOM  LAYER,  FIRST  RAY,  OUTER  NODE  ******** 

RAD  =  RMAX 
INCRAD  =  NODES 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  "  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, NPHI,  LAYER) 

T5  *  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA (INCRAD) , BB (INCRAD) ,CC (INCRAD) , DD (INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NODES , AA, BB, CC, DD, TEMP ) 

DO  175  INCRAD" 1 , NODES 

T3STAR( INCRAD, IPHI, LAYER)  =  TEMP (INCRAD) 

175  CONTINUE 

C 

C  ********  BOTTOM  LAYER,  MID-RAYS  ******** 

DO  200  IPHI=2 , (NPHI-1) 
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c 

C  ********  BOTTOM  layer,  mid-rays,  inner  node  ******** 

INCRAD  =  1 
RAD  =  RMIN 

T1  =  TOLD (INCRAD, I PH I, LAYER) 

T2  »  TSTAR (INCRAD, IPHI, (LAYER+l) ) 

T3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  *=  T2STAR( INCRAD,  (IPHI-1)  ,  LAYER) 

T5  =  T2 STAR (INCRAD, (IPHI+1) , LAYER) 

T6  -  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCREI3  (AA (INCRAD) , BB ( INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
C 

C  ********  BOTTOM  LAYER,  MID-RAYS,  MID-NODES  ******** 

DO  300  INCRAD=2 , (NODES-1) 

RAD  -  RMIN  +  (INCRAD-1) *DR 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR (INCRAD, IPHI, (LAYER+l) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2 STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM3  (AA (INCRAD >, BB ( INCRAD) , CC < INCRAD) , DD ( INCRAD) ) 
300  CONTINUE 

C 

C  ********  BOTTOM  LAYER,  MID-RAYS,  OUTER  NODE  ******** 

RAD  -  RMAX 
INCRAD  =  NODES 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+l) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  -  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA ( INCRAD) , BB (INCRAD) , CC ( INCRAD ), DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NODES , AA, BB, CC, DD, TEMP ) 

DO  375  INCRAD=1, NODES 

T3STAR( INCRAD, IPHI, LAYER)  =  TEMP ( INCRAD) 

375  CONTINUE 

200  CONTINUE 
C 

C  ********  BOTTOM  layer,  last  ray  ******** 

IPHI  =  NPHI 
C 

c  ********  BOTTOM  LAYER,  LAST  RAY,  INNER  NODE  ******** 

INCRAD  =  1 
RAD  =  RMIN 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR(INCRAD, IPHI, (LAYER+l) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR< INCRAD, (IPHI-1) , LAYER) 

T5  -  T2STAR (INCRAD, 1, LAYER) 

T6  *=  T2STAR  (INCRAD,  IPHI,  LAYER) 

CALL  BCREI3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) ,DD (INCRAD) ) 
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c  ********  BOTTOM  layer,  last  ray,  mid-nodes  ******** 

DO  400  INCRAD=2, (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 

T3  *=  TSTAR  (INCRAD,  IPHI,  LAYER) 

T4  -  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  -  T2STAR( INCRAD, 1, LAYER) 

T6  =  T2 STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 
400  CONTINUE 

C 

C  ********  BOTTOM  LAYER,  LAST  RAY,  OUTER  NODE  ******** 

RAD  -  RMAX 
INCRAD  -  NODES 

Tl  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR(INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2 STAR ( INCRAD, 1,  LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA (INCRAD) , BB ( INCRAD) , CC (INCRAD) , DD (INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1 , NODES, AA, BB, CC, DD, TEMP) 

DO  475  INCRAD=1, NODES 

T3STAR (INCRAD, IPHI, LAYER)  =  TEMP (INCRAD) 

475  CONTINUE 

C 

CIIIIIIIIIIIIIIIIIIIIIIII  INTERMEDIATE  LAYERS  IIIIIIIIIIIIIIIIIIIIIIIIII 
DO  500  LAYER=2 , (NLAYER-1) 

C 

c  ********  INTERMEDIATE  LAYERS,  FIRST  RAY  ******** 

IPHI  =  1 
C 

C  ********  INTERMEDIATE  LAYERS,  FIRST  RAY,  FIRST  NODE  ******** 

INCRAD  =  1 
RAD  =  RMIN 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  *=  TSTAR  (INCRAD,  IPHI,  (LAYER-1)  ) 

T4  -  TSTARdNCRAD,  IPHI,  LAYER) 

T5  =  T2STAR (INCRAD, NPH I, LAYER) 

T6  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  -  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRMI3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 
C 

c  ********  INTERMEDIATE  LAYERS,  FIRST  RAY,  MID-NODES  ******** 

DO  600  INCRAD**  2 ,  (NODES-1) 

RAD  -  RMIN  +  (INCRAD-1) *DR 

Tl  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 

T3  «  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T4  -  TSTARdNCRAD,  IPHI,  LAYER) 
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no®  no  noon®  no  no 


T5  -  T2 STAR (INCRAD, NPH I, LAYER) 

T6  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  «  T2STAR (INCRAD,  IPHI,  LAYER) 

CALL  BCRMM3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
600  CONTINUE 

********  INTERMEDIATE  layers,  first  ray,  outer  node  ******** 
INCRAD  =  NODES 
RAD  -  RMAX 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  *  TSTARdNCRAD, IPHI, (LAYER+1) ) 

T3  “  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  **  TSTAR (INCRAD, IPHI, LAYER) 

T5  -  T2STAR { INCRAD, NPHI, LAYER) 

T6  -  T2 STAR (INCRAD, (IPHI+1) , LAYER) 

T7  -  T2STAR( INCRAD, IPHI,  LAYER) 

CALL  BCRM03  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 

****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NODES, AA, BB, CC, DD, TEMP ) 

DO  675  INCRAD=1, NODES 

T3STAR( INCRAD, IPHI, LAYER)  -  TEMP (INCRAD) 

75  CONTINUE 

********  INTERMEDIATE  LAYERS,  MID-RAYS  ******** 

DO  700  IPHI®2, (NPHI-1) 

********  INTERMEDIATE  LAYERS,  MID-RAYS,  INNER  NODE  ******** 

INCRAD  =  1 
RAD  =  RMIN 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  «  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  -  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRMI3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 

********  INTERMEDIATE  LAYERS,  MID-RAYS,  MID-NODES  ******** 

DO  800  INCRAD *=2,  (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 
T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  «  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T4  -  TSTARdNCRAD,  IPHI,  LAYER) 

T5  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  -  T2STAR ( INCRAD, (IPHI+1) , LAYER) 

T7  -  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRMM3  (AA (INCRAD) , BB (INCRAD) , CC ( INCRAD) , DD (INCRAD) ) 
>0  CONTINUE 

********  INTERMEDIATE  LAYERS,  MID -RAYS,  OUTER  NODE  ******** 

INCRAD  -  NODES 
RAD  =  RMAX 
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T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTARUNCRAD,  IPHI,  (LAYER+1)  ) 

T3  -  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR ( INCRAD, (IPHI-1) , LAYER) 

T6  =  T2 STAR (INCRAD, (IPHI+1) , LAYER) 

T7  -  T2 STAR (INCRAD, IPHI, LAYER) 

CALL  BCRM03  (AA ( INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NODES, AA, BB, CC, DD, TEMP) 

DO  875  INCRAD- 1, NODES 

T3STAR (INCRAD, IPHI, LAYER)  -  TEMP (INCRAD) 

875  CONTINUE 

700  CONTINUE 

C 

C  ********  INTERMEDIATE  LAYERS,  LAST  RAY  ******** 

IPHI  -  NPHI 
C 

C  ********  INTERMEDIATE  LAYERS,  LAST  RAY,  INNER  NODE  ******** 

INCRAD  =  1 

RAD  =  RMIN 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR ( INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  -  T2 STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR ( INCRAD, 1, LAYER) 

T7  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRMI3  (AA { INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

C  ********  INTERMEDIATE  LAYERS,  LAST  RAY,  MID-NODES  ******** 

DO  900  INCRAD=2, (NODES-1) 

RAD  -  RMIN  +  (INCRAD-1) *DR 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TSTARUNCRAD,  IPHI,  (LAYER-1)  ) 

T4  =  TSTARUNCRAD,  IPHI,  LAYER) 

T5  =  T2STAR( INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR ( INCRAD, 1, LAYER) 

T7  =  T2STAR( INCRAD, IPHI,  LAYER) 

CALL  BCRMM3  (AA ( INCRAD) , BB ( INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
900  CONTINUE 

C 

C  ********  INTERMEDIATE  layers,  last  ray,  outer  node  ******** 

INCRAD  =  NODES 
RAD  -  RMAX 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  -  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  -  T2STAR ( INCRAD, 1, LAYER) 

T7  -  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRM03  ( AA ( INCRAD ) , BB ( INCRAD ) , CC ( INCRAD ) , DD ( INCRAD ) ) 
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c 

c  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NODES, AA,BB,CC,DD, TEMP) 

DO  97  5  INCRAD-1,  NODES 

T3STAR (INCRAD, IPHI, LAYER)  -  TEMP(INCRAD) 

975  CONTINUE 

500  CONTINUE 
C 

CTTTTTTTTTTTTTTTTTTTTTTTTTTTTT  LAYER  TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 
LAYER  -  N LAYER 
C 

C  ********  T0P  layer,  FIRST  RAY  ******** 

IPHI  =  1 
C 

C  ********  top  LAYER,  FIRST  RAY,  INNER  NODE  ******** 

INCRAD  -  1 
RAD  -  RMIN 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR  { INCRAD, NPHI, LAYER) 

T5  -  T2STAR ( INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR< INCRAD, IPHI, LAYER) 

CALL  BCREI3  (AA < INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 

C 

C  ********  TOp  LAYER,  FIRST  RAY,  MID-NODES  ******** 

DO  1000  INCRAD=2, (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 

T1  =  TOLD  (INCRAD,  IPHI,  LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  *  T2STAR{ INCRAD, NPHI, LAYER) 

T5  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM3  (AA ( INCRAD) , BB ( INCRAD) , CC { INCRAD) , DD ( INCRAD) ) 
1000  CONTINUE 

C 

C  ********  TOP  LAYER,  FIRST  RAY,  OUTER  NODE  ******** 

INCRAD  =  NODES 
RAD  =  RMAX 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR (INCRAD,  IPHI, LAYER) 

T4  =  T2STAR( INCRAD, NPHI, LAYER) 

T5  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA ( INCRAD) , BB (INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NODES , AA, BB, CC, DD, TEMP ) 

DO  1075  INCRAD-1, NODES 
T3STAR( INCRAD, IPHI, LAYER)  -  TEMP (INCRAD) 

1075  CONTINUE 

C 

C  ********  TOP  LAYER,  MID-RAYS  ******** 
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DO  1100  IPHI-2, (NPHI-1) 

C 

c  ********  T0P  LAYER,  MID-RAYS,  INNER  NODE  ******** 

INCRAD  -  1 
RAD  =  RMIN 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T3  *=  TSTAR  (INCRAD,  IPHI,  LAYER) 

T4  -  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  «  T2STAR  (INCRAD,  (IPHI+1)  ,  LAYER) 

T6  -  T2 STAR (INCRAD, IPHI, LAYER) 

CALL  BCREI3  (AA (INCRAD) , BB (INCRAD) ,CC (INCRAD) ,DD (INCRAD) ) 
C 

c  ********  TOP  LAYER,  MID-RAYS,  MID-NODES  ******** 

DO  1200  INCRAD-2, (NODES-1) 

RAD  -  RMIN  +  (INCRAD-1) *DR 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T3  -  TSTARdNCRAD,  IPHI,  LAYER) 

T4  -  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  *  T2STAR(INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCREM3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 
1200  CONTINUE 

C 

C  ********  TOP  LAYER,  MID-RAYS,  OUTER  NODE  ******** 

INCRAD  =  NODES 
RAD  =  RMAX 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T3  *  TSTARdNCRAD,  IPHI,  LAYER) 

T4  -  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  «  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  -  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NODES , AA, BB, CC,DD, TEMP) 

DO  1275  INCRAD-1, NODES 

T3STAR (INCRAD, IPHI, LAYER)  -  TEMP (INCRAD) 

1275  CONTINUE 

1100  CONTINUE 
C 

C  ********  TOP  LAYER,  LAST  RAY  ******** 

IPHI  «  NPHI 
C 

C  ********  TOP  LAYER,  LAST  RAY,  INNER  NODE  ******** 

INCRAD  «  1 
RAD  =  RMIN 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T3  -  TSTARdNCRAD,  IPHI,  LAYER) 

T4  -  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  -  T2STAR (INCRAD, 1, LAYER) 

T6  =  T2STAR(INCRAD, IPHI, LAYER) 
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CALL  BCREI3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 
C 

C  ********  TOp  LAYER,  LAST  RAY,  MID-NODES  ******** 

DO  1300  INCRAD=2, (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  -  T2STAR ( INCRAD, (IPHI-1) , LAYER) 

T5  *  T2 STAR ( INCRAD, 1, LAYER) 

T6  -  T2 STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 
1300  CONTINUE 

C 

c  ********  TOP  LAYER,  LAST  RAY,  OUTER  NODE  ******** 

INCRAD  -  NODES 
RAD  “  RMAX 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR< INCRAD, 1, LAYER) 

T6  -  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NODES , AA, BB, CC, DD, TEMP) 

DO  1375  INCRAD=1, NODES 

T3STAR (INCRAD, IPHI, LAYER)  «  TEMP (INCRAD) 

1375  CONTINUE 

998  RETURN 

END 
C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  STEP4  FORTRAN  A  -  (REV.  10/25/68) 

C  a****************************************************** 

C  *  STEP  4  -  FOURTH  INTERMEDIATE  STEP  (TEMPERATURE  AT  * 

C  *  N+l  TIME  STEP)  FOR  BRAIN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  FOR  A  RIGHT  * 

C  *  CIRCULAR  CYLINDER  WITH  CONSTANT  SURFACE  * 

C  *  HEAT  FLUX  AND  SPECIFIED  INNER  SURFACE  * 

C  *  TEMPERATURE .  * 

C  ******************************************************* 

C  PROGRAM  LINE  1310 

SUBROUTINE  STEP 4  (TOLD, TSTAR, T2STAR, T3STAR, TNEW) 

IMPLICIT  DOUBLE  PRECISION  <A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 
COMMON  /CONDUC/  DKR, DKP, DKZ 
COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA,FO, QPSUBN, QPSUBS,  QPSUBI, QPSUBO 
COMMON  /MATSIZ/  NODES,NPHI, NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 
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COMMON  /RADN/  EPSUBN,  EPSUBS, EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/  T1 ,  T2,  T3,  T4,  T5,  T6,  T7,  T8,  T9,  T10,  TINF,  TSUR 
DIMENSION  TOLD (15, 15, 15) , TSTAR (15, 15, 15) , T2STAR (15, 15, 15) 

DIMENSION  T3STAR (15, 15, 15) , TNEW(15, 15, 15) 

C 

CBBBBBBBBBBBBBBBBBBBBBBBBBBBB  BOTTOM  LAYER  BBBBBBBBBBB3BBBBBBBBBBBBBBBBB 
LAYER  =  1 

****  BOTTOM  LAYER,  INNER  RADIUS  **** 

INCRAD  -  1 
RAD  =  RMIN 

********  BOTTOM  LAYER,  INNER  RADIUS,  FIRST  PHI  ******** 

IPHI  =  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  *  TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3  -  TSTAR ( INCRAD , IPHI, LAYER) 

T4  =  T2STAR (INCRAD, NPHI, LAYER) 

T5  *  T2 STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR( INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T8  =  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCREI4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

********  BOTTOM  LAYER,  INNER  RADIUS,  MID-PHIS  ******** 

DO  100  IPHI=2, (NPHI-1) 

T1  *=  TOLD  (INCRAD,  IPHI,  LAYER) 

T2  =  TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3  «  TSTAR (INCRAD, IPHI, LAYER) 

T4  *  T2STAR( INCRAD, (IPHI-1) , LAYER) 

T5  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR( INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T8  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCREI4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

0  CONTINUE 

********  BOTTOM  LAYER,  INNER  RADIUS,  LAST  PHI  ******** 

IPHI  =  NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T 3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  -  T2STAR(INCRAD, (IPHI-1) , LAYER) 

T5  -  T2STAR (INCRAD, 1, LAYER) 

T6  *  T2STAR (INCRAD, IPHI, LAYER) 

T7  «  T3STAR( (INCRAD+1), IPHI, LAYER) 

T8  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCREI4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

********  BOTTOM  LAYER,  MID-RADII  ******** 

DO  200  INCRAD-2, (NODES-1) 

RAD  -  RMIN  +  (INCRAD-1) *DR 
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c 

c  ********  BOTTOM  layer,  mid-radii,  first  phi  ******** 

IPHI  =  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, NPHI, LAYER) 

T5  *  T2 STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  -  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  «  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  -  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCREM4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 
C 

C  ********  BOTTOM  LAYER,  MID  RADII,  MID-PHIS  ******** 

DO  300  IPHI-2, (NPHI-1) 

T1  *=  TOLD  (INCRAD,  IPHI,  LAYER) 

T2  -  TSTAR (INCRAD, IPHI, (LAYER+1)) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  *=  T2 S TAR  ( INCRAD,  (IPHI-1)  ,  LAYER) 

T5  -  T2STAR(INCRAD, (IPHI+1) , LAYER) 

T6  -  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  “  T3STAR( (INCRAD+1), IPHI, LAYER) 

T9  -  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCREM4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
300  CONTINUE 

C 

c  ********  BOTTOM  LAYER,  MID  RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 

T3  »  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2 STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR( INCRAD, 1,  LAYER) 

T6  *  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  «  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  *  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
200  CONTINUE 

C 

C  ****  OUTER  RADIUS  **** 

INCRAD  *  NODES 
RAD  =  RMAX 
C 

C  ********  BOTTOM  LAYER,  OUTER  RADIUS,  FIRST  PHI  ******** 

IPHI  =  1 

T1  -  TOLD (INCRAD, IPHI,  LAYER) 

T2  -  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 

T3  *  TSTARdNCRAD,  IPHI,  LAYER) 

T4  =  T2STAR( INCRAD, NPHI, LAYER) 
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T5  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2 STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  -  T3STAR(INCRAD, IPHI, LAYER) 

CALL  BCRE04  (TEMP) 

TNEW(INCRAD, IPHI, LAYER)  -  TEMP 
C 

c  ********  FIRST  layer,  outer  radius,  mid-phis  ******** 

DO  400  IPHI-2, (NPHI-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR(INCRAD, IPHI, (LAYER+I) ) 

T3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  -  T2STAR( INCRAD, (IPHI-1) , LAYER) 

T5  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  -  T2STAR (INCRAD, IPHI, LAYER) 

T7  -  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  -  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE04  (TEMP) 

TNEWdNCRAD,  IPHI,  LAYER)  =  TEMP 
400  CONTINUE 

C 

C  ********  BOTTOM  LAYER,  OUTER  RADIUS,  LAST  PHI  ******** 

IPHI  =  NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, 1, LAYER) 

T6  *=  T2STAR (INCRAD,  IPHI,  LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  **  T3STAR(  INCRAD,  IPHI,  LAYER) 

CALL  BCRE04  (TEMP) 

TNEWdNCRAD,  IPHI,  LAYER)  =  TEMP 
C 

CMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  MID-LAYERS  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
DO  500  LAYER=2 , (NLAYER-1 ) 

C 

C  ****  MID-LAYERS,  INNER  RADIUS  **** 

INCRAD  =  1 
RAD  =  RMIN 
C 

C  ********  MID-LAYERS,  INNER  RADIUS,  FIRST  PHI  ******** 

IPHI  =  1 

T1  *  TOLD (INCRAD, IPHI, LAYER) 

T2  «=  TSTAR  (INCRAD,  IPHI,  (LAYER+1)  ) 

T3  «  TSTAR (INCRAD, IPHI, (LAYER-1)) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  -  T2 STAR (INCRAD, NPHI, LAYER) 

T6  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  -  T2STAR (INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  *  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRMI4  (TEMP) 

TNEWdNCRAD,  IPHI,  LAYER)  «  TEMP 
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00 


********  MID-LAYERS,  inner  radius,  mid-phis  ******** 
DO  600  IPHI=2, (NPHI-1 ) 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTARdNCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  *  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  -  T2STAR (INCRAD, IPHI, LAYER) 

T8  “  T3STAR( (INCRAD+1) ,  IPHI,  LAYER) 

T9  *  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRMI4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
CONTINUE 


********  MID-LAYERS,  INNER  RADIUS,  LAST  PHI  ******** 
IPHI  =  NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  -  TSTAR (INCRAD, IPHI, LAYER) 

T5  *  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR (INCRAD, 1, LAYER) 

T7  -  T2STAR( INCRAD, IPHI, LAYER) 

T8  -  T3STAR( (INCRAD+1), IPHI, LAYER) 

T9  «  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRMI4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 


********  MID-LAYERS,  MID-RADII  ******** 
DO  700  INCRAD=2 , (NODES-1) 

RAD  «  RMIN  +  (INCRAD-1) *DR 


IPHI 


********  MID-LAYERS,  MID-RADII,  FIRST  PHI 
=  1 


T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 
T3  =  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 
T4  ~  TSTARdNCRAD,  IPHI,  LAYER) 

T5  =  T2STAR (INCRAD, NPHI,  LAYER) 

T6  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 
T7  =  T2STAR (INCRAD, IPHI, LAYER) 

T8  ■=  T3STAR(  (INCRAD-1) ,  IPHI,  LAYER) 
T9  «  T3STAR( (INCRAD+1) , IPHI, LAYER) 
T10  =  T3STAR (INCRAD, IPHI, LAYER) 
CALL  BCRMM4  (TEMP) 

TNEW  (INCRAD,  IPHI,  LAYER)  *=  TEMP 


*★*★★*★* 


********  MID-LAYERS,  MID-RADII,  MID-PHIS  ******** 
DO  800  IPHI-2, (NPHI-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 

T3  -  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T4  -  TSTARdNCRAD,  IPHI,  LAYER) 
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T5  -  T2STAR (INCRAD, (IPHI-1) , LAYER) 
T6  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 
T7  =  T2STAR (INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD-1), IPHI, LAYER) 
T9  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 
T10  =  T3STAR( INCRAD, IPHI, LAYER) 
CALL  BCRMM4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 
800  CONTINUE 


00 


********  MID-LAYERS,  MID-RADII,  LAST  PHI 


IPHI  =  NPHI 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 
T3  -  TSTARdNCRAD,  IPHI,  (LAYER-1) ) 
T4  -  TSTARdNCRAD,  IPHI,  LAYER) 

T5  -  T2STAR(INCRAD, (IPHI-1) , LAYER) 
T6  =  T2STAR(INCRAD, 1, LAYER) 

T7  «  T2STAR (INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 
T9  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 
T10  =  T3STAR (INCRAD, IPHI, LAYER) 
CALL  BCRMM4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
CONTINUE 


******** 


****  MID-LAYERS,  OUTER  RADII  **** 

INCRAD  -  NODES 
RAD  =  RMAX 

********  MID-LAYERS,  OUTER  RADII,  FIRST  PHI  ******** 
IPHI  =  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 

T3  -  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T4  *  TSTARdNCRAD,  IPHI,  LAYER) 

T5  =  T2 STAR (INCRAD, NPHI, LAYER) 

T6  -  T2STAR(INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR (INCRAD, IPHI, LAYER) 

T8  -  T3STAR( (INCRAD-1)  ,  IPHI, LAYER) 

T9  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRM04  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  “  TEMP 

********  MID-LAYERS,  OUTER  RADII,  MID-PHIS  ******** 
DO  900  IPHI=2, (NPHI-1) 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  *  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 

T3  -  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T4  -  TSTARdNCRAD,  IPHI,  LAYER) 

T5  «  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  -  T2STAR (INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD-1), IPHI, LAYER) 

T9  =  T3STAR (INCRAD, IPHI, LAYER) 
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CALL  BCRM04  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
900  CONTINUE 

C 

c  ********  MID-LAYERS,  OUTER  RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  »  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4  «=  TSTAR  (INCRAD,  IPHI,  LAYER) 

T5  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  -  T2STAR (INCRAD, 1, LAYER) 

T7  -  T2STAR(INCRAD, IPHI, LAYER) 

T8  -  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T9  -  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCRM04  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 
500  CONTINUE 

C 


CTTTTTTTTTTTTTTTTTTTTTTTTTTTTT  LAYER  TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 

LAYER  =  N LAYER 
C 

C  ****  TOP  LAYER,  INNER  RADIUS  **** 

INCRAD  =  1 
RAD  =  RMIN 
C 

c  ********  top  LAYER,  INNER  RADIUS,  FIRST  PHI******** 

IPHI  =  1 


T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  -  T2STAR (INCRAD, NPHI, LAYER) 

T5  «  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T8  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCREI4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -TEMP 

C 

C  ********  TOP  LAYER,  INNER  RADIUS,  MID-PHIS  ******** 

DO  1000  IPHI-2, (NPHI-1 ) 

T1  -  TOLD (INCRAD, IPHI,  LAYER) 

T2  -  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T3  -  TSTARdNCRAD,  IPHI,  LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  -  T2 STAR (INCRAD, IPHI, LAYER) 

T7  -  T3STAR( (INCRAD+1), IPHI, LAYER) 

T8  -  T3STAR (INCRAD, IPHI,  LAYER) 

CALL  BCREI4  -.(TEMP) 

TNEW (INCRAD, IPHI, LAYER)  «  TEMP 

1000  CONTINUE 

C 

C  ********  TOP  LAYER,  INNER  RADIUS,  LAST  PHI  ******** 

IPHI  =  NPHI 
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T1  =  TOLD (INCRAD, IPHI, LAYER) 

T 2  =  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T3  »  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI -1) , LAYER) 

T5  *  T2STAR (INCRAD, 1, LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T8  «  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCREI4  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  -  TEMP 

****  Top  LAYER,  MID  RADII  **** 

DO  1100  INCRAD=2, (NODES-1) 

RAD  -  RMIN  +  (INCRAD-1) *DR 

********  TOP  LAYER,  MID-RADII,  FIRST  PHI  ******** 
IPHI  *  1 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  «  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR( INCRAD, NPHI, LAYER) 

T5  -  T2 STAR ( INCRAD, (IPHI+1) , LAYER) 

T6  -  T2STAR( INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI,  LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM4  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 

********  TOP  LAYER,  MID  RADII,  MID-PHIS  ******** 
DO  1200  IPHI=2, (NPHI-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR (INCRAD, IPHI,  (LAYER-1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  -  T2 STAR (INCRAD, (IPHI-1) , LAYER) 

T5  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2 STAR (INCRAD, IPHI, LAYER) 

T7  -  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  -  T3STAR ( INCRAD, IFHI, LAYER) 

CALL  BCREM4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  -  TEMP 
CONTINUE 

********  TOP  LAYER,  MID  RADII,  LAST  PHI  ******** 
IPHI  =  NPHI 

T1  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  -  T2 STAR (INCRAD, (IPHI-1) , LAYER) 

T5  -  T2 STAR ( INCRAD, 1, LAYER) 

T6  -  T2STAR( INCRAD, IPHI, LAYER) 

T7  -  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  -  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  -  T3STAR( INCRAD, IPHI, LAYER) 
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CALL  BCREM4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  «  TEMP 
1100  CONTINUE 


****  top  LAYER,  OUTER  RADIUS  **** 

INCRAD  =  NODES 
RAD  «  RMAX 

********  Top  LAYER,  OUTER  RADIUS,  FIRST  PHI  ******** 

IPHI  -  1 

T1  *=  TOLD  (INCRAD,  IPHI,  LAYER) 

T2  -  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  «  T2STAR(INCRAD,NPHI, LAYER) 

T5  -  T2STAR( INCRAD, (IPHI+l) , LAYER) 

T6  -  T2STAR (INCRAD, IPHI, LAYER) 

T7  -  T3STAR ( (INCRAD-1) , IPHI,  LAYER) 

T8  -  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCRE04  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 

********  TOp  LAYER,  OUTER  RADIUS,  MID-PHIS  ******** 

DO  1300  IPHI=2, (NPHI-1) 

T1  -  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T3  -  TSTAR (INCRAD, IPHI, LAYER) 

T4  «  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2S TAR (INCRAD, ( IPHI+1 ), LAYER) 

T6  -  T2STAR( INCRAD,  IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1), IPHI, LAYER) 

T8  -  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE04  (TEMP) 

300  CONTINUE 

********  TOP  LAYER,  OUTER  RADIUS,  LAST  PHI  ******** 

IPHI  =  NPHI 

T1  =  TOLD (INCRAD, IPHI,  LAYER) 

T2  =  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T3  =  TSTARdNCRAD,  IPHI,  LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, 1, LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  -  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  «  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE04  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

c  BCREI1  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C  *  BCREI1  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 
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c 

c 

c 

c 

c 

c 

c 


c 


c 


* 

* 

★ 

* 


★ 

***** 


THE  INNER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH) 

OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  FIRST  INTERME-  * 
DIATE  STEP  IN  Z  DIRECTION  OF  A  3-D  POLAR-CYLINDRICAL  * 
COORDINATE  ADAPTATION  OF  BRIAN'S  METHOD  OF  FINITE  * 

DIFFERENCE  ANALYSIS.  * 

************************************************************* 


PROGRAM  LINE  1767 
SUBROUTINE  BCREIl  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP , DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, FMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF , TSUR 

***  BODY  *** 


IF  ( LAYER. EQ.l)  THEN 
Q  =  QPSUBS 
HE  =  HSUBS 
EPSE  =  EPSUBS 
A  =  0.D+00 
C  -  -FO 

ELSEIF  ( LAYER. EQ. NLAYER)  THEN 

Q  *=  QPSUBN 

HE  =  HSUBN 

EPSE  *=  EPSUBN 

A  =  -FO 

C  =  0.D+00 

END  IF 

D1  =  (DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
D3  -  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 


B  =  1  +  FO*  (1  +  D3* (HE+D5*EPSE)  +  D4* (HSUBI+D5*EPSUBI) ) 


C 

D  =  T1  +  FO* (Dl* (T2+T3-2*T1)  +  D2*(T4-T1) 

1  +  D3* (Q+HE*TINF+D5*EPSE*TSUR) 

2  +  D4* (QPSUBI+HSUBI*TINF+D5*EPSUBI*TSUR) )  998  RETURN 
END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


c 

c 

c 

c 

c 

c 

c 

c 

c 


BCREI2  FORTRAN  A  -  (REV.  11/16/88) 
************************************* 


*  BCREI2  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

*  THE  INNER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

*  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERME-  * 

*  DIATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF 

*  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  4 

*  COORDINATES.  * 
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no  o  on 


★★A*************************************************************** 

PROGRAM  LINE  1818 
SUBROUTINE  BCREI2  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP , DKZ 
COMMON  / CONVEC/  HSUBN, HSUBS, HSUBI,HSUBO 

COMMON  /GEOMET/  DPHI, DR,DZ, RAD, RMAX,RMIN, THICK, ZMAX,LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI , QPSUBO 
COMMON  /MATSIZ /  NODES, NPHI,NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF , TSUR 

***  BODY  *** 

IF  ( LAYER . EQ . 1 )  THEN 
Q  -  QPSUBS 
HE  -  HSUBS 
EPSE  -  EPSUBS 

ELSE IF  ( LAYER. EQ.NLAYER)  THEN 
Q  ■=  QPSUBN 
HE  =  HSUBN 
EPSE  *  EPSUBN 
ENDIF 

D1  -  (DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  »  (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

D3  -  DZ/DKZ 

D4  =  (RAD*DZ* *2 )/ (DKZ* (RAD+DR/4) *DR) 

D5  *  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2 ) 

A  =  -Dl*FO 

B  =  1  +  FO*  (2*D1  +  D3* (HE+D5*EPSE)  +  D4* (HSUBI+D5*EPSUBI) ) 

=  -Dl*FO 

D  -  T1  +  FO* ( (T2-T3)  +  D2* (T4-T1)  +  D3* (Q-HE*TINF-D5*EPSE*TSUR) 

1  +  D4* (QPSUBI+HSUBI*TINF+D5*EPSUBI*TSUR) ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  BCREI3  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C  *  BCREI3  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  INNER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERME-  * 

C  *  DIATE  STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

C  ★★★★★★★A********************************************'************** 

C  PROGRAM  LINE  1865 

SUBROUTINE  BCREI3  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS,  QPSUBI,  QPSUBO 
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COMMON  /MATSIZ/  NODES, NPHI,NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
C  ***  BODY  *** 

IF  ( LAYER . EQ . 1 )  THEN 
Q  «  QPSUBS 
HE  -  HSUBS 
EPSE  *  EPSUBS 

ELSEIF  { LAYER. EQ.NLAYER)  THEN 

Q  -  QPSUBN 

HE  -  HSUBN 

EPSE  =  EPSUBN 

ENDIF 

D1  -  DKP*DZ**2/ (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  «  DKR* (RAD+DR/2) *DZ**2I (DKZ* (RAD+DR/4) *DR**2) 

D3  -  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  =  0.D+00 

B  =  1  +  FO* (D2  +  D3* (HE+D5*EPSE)  +  D4* (HSUBI+D5*EPSUBI) ) 

C  -  -D2*FO 
C 

D  =  T1  +  FO* ( (T2-T3)  +  Dl*  (T4+T5-2*T6) 

1  +  D3*(Q  +  HE*TINF  +  D5*EPSE*TSUR) 

2  +  D4  * (QPSUBI  +  HSUBI*TINF  +  D5*EPSUBI*TSUR) ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  BCREI4  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C  *  BCREI4  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT  * 

C  *  THE  INNER  SURFACE  OF  THE  END  LAYERS  {NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  ****************************************************************** 

C  PROGRAM  LINE  1978 

SUBROUTINE  BCREI4  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX,  RMIN,  THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES , NPHI , NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1 , T2 , T3, T4 , T5, T6 , T7 , T8 , T9, T10 , TINF, TSUR 
C  ***  BODY  *** 

IF  { LAYER. EQ.l)  THEN 
Q  =  QPSUBS 
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HE  *  HSUBS 
EPSE  =  EPSUBS 

ELSEIF  (LAYER. EQ.NLAYER)  THEN 

Q  =  QPSUBN 

HE  =  HSUBN 

EPSE  -  EPSUBN 

ENDIF 

Dl  *  (DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/ 4) *DPHI**2) 

D2  *■  (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/ 4) *DR**2) 

D3  «=  DZ/DKZ 

D4  *  (RAD*DZ**2) / (DKZ* (RAD+DR/ 4) *DR) 

D5  *  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  =  1  +  2*F0* (D3* (HE+D5*EPSE)  +  D4* (HSUBI+D5*EPSUBI) ) 

C 

TNEW  *=  1/D6*  <T1+2*F0*  (  (T2-T3)  +  Dl*  (T4+T5-2*T6)  +  D2*(T7-T8) 

1+  D3* (Q  +  HE*TINF  +  D5*EPSE*TSUR) 

2+  D4* (QPSUBI  +  HSUBI*TINF  +  D5*EPSUBI*TSUR) ) ) 

C 

998  RETURN 

END 

C 

cssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  BCREM1  FORTRAN  A  -  (REV.  11/16/88) 

Q  *★**★*****★**★★*★*★*********★★****★*****★★★*****★**★******* 

C  *  BCREMl  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  * 

C  *  NODES  AT  THE  MID-RADII  OF  THE  END  LAYERS  * 

C  *  (NORTH,  SOUTH  FACES)  OF  A  RIGHT -CIRCULAR  CYL-  * 

C  *  INDER  FOR  THE  FIRST  INTERMEDIATE  TIMESTEP  * 

C  *  (STAR  LEVEL)  OF  A  3-D,  POLAR-CYLINDRICAL  * 

C  *  COORDINATE  ADAPTATION  OF  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS.  * 

Q  ★*★*★*****★★★*★***★***★★★*****■*■*******★*★★*★***★*★****★**★★ 

C  PROGRAM  LINE  2027 

SUBROUT INE  BCREMl  ( A, B , C , D ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI , QPSUBO 

COMMON  /MATSIZ/  NODES, NP HI, NLAYER 
COMMON  /NPOSIT/  INCRAD,  IF  III,  LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/  Tl,  T2,  T3,  T4,  T5, T6,  T7, T8, T9, T10, TINF, TSUR 
C  ***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 
Q  -  QPSUBS 
EPSE  =  EPSUBS 
HE  -  HSUBS 
A  =  0.D+00 
C  »  -FO 

ELSE IF  (LAYER. EQ.NLAYER)  THEN 
Q  -  QPSUBN 
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non 


EPSE  =  EPSUBN 
HE  =  HSUBN 
A  =  -FO 
C  =  O.D+OO 
ENDIF 

D1  -  (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / <2*DKZ*RAD*DR**2) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

D4  -  DZ/DKZ 

D5  -  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

B  *  1  +  F0*(1  +  D4* (HE  +  D5*EPSE) ) 

C 

D  -  T1  +  FO* (Dl* (T2+T3-2*T1)  +  D2* (T4-T1)  +  D3*(T5-T1) 

1+  D4*(Q  +  HE*TINF  +  D5*EPSE*TSUR) ) 

C 

998  RETURN 

END 

C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  BCREM2  FORTRAN  A  -  (REV.  11/16/88) 

c  ****************************************************************** 

C  *  BCREM2  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  MID-RADIAL  NODES  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERMED-  * 

C  *  IATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

C  ****************************************************************** 

C  PROGRAM  LINE  2077 

SUBROUTINE  BCREM2  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 
COMMON  / CQNVEC /  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSI2/  NODES, NPHI, NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 

***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 
Q  »  QPSUBS 
EPSE  «  EPSUBS 
HE  «  HSUBS 

ELSEIF  (LAYER. EQ. NLAYER)  THEN 
Q  -  QPSUBN 
EPSE  -  EPSUBN 
HE  -  HSUBN 
ENDIF 

Dl  -  (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 

D2  -  (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2 ) 
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o  u  u 


D3  =  {DKR* (RAD+DR/2) *DZ**2) / <2*DKZ*RAD*DR**2) 

D4  -  DZ/DK2 

D5  =  SIGMA* (Tl+TSUR) * (Tl * *2+TSUR* *2 ) 

A  =  -Dl*FO 

B  =  1  +  FO* (2*D1  +  D4* (HE  +  D5*EPSE) ) 

C  =  -Dl*FO 

D  =  T1  +  FO* { (T2-T3)  +  D2*(T4-T1)  +  D3*(T5-T1) 

1  +  D4*(Q  +  HE*TINF  +  D5*EPSE*TSUR) ) 

998  RETURN 

END 

C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BCREM3  FORTRAN  A  -  (REV.  11/16/88) 
****************************************************************** 
★ 

★ 

* 

* 


BCREM3  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 
THE  MID-RADIAL  NODES  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 
OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERMED-  * 
IATE  STEP  (Z  DIRECTION)  IN  BRIAN’S  METHOD  OF  * 

*  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

*  COORDINATES .  * 

A***************************************************************** 

PROGRAM  LINE  2059 
SUBROUTINE  BCREM3  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NP HI, NLAYER 
COMMON  /NPOSIT/  INCRAD , IPHI , LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  Tl,  T2,  T3,  T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 


***  BODY  *** 


IF  ( LAYER. EQ.l)  THEN 
Q  =  QPSUBS 
EPSE  =  EPSUBS 
HE  «  HSUBS 

ELSEIF  ( LA YER.EQ. NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  «  EPSUBN 

HE  »  HSUBN 

ENDIF 

D1  -  (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
D3  =  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
D4  *  DZ/DKZ 

D5  -  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  -  -D2*FO 

B  =  1  +  FO* (D2  +  D3  +D4* (HE  +  D5*EPSE)) 

C  =  -D3*FO 

D  =  Tl  +  FO* ( (T2-T3)  +  Dl* (T4+T5-2*T6) 


148 


i  +  D4*(Q  +  HE*TINF  +  D5*EPSE*TSUR) ) 

998  RETURN 

END 

C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  BCREM4  FORTRAN  A  -  (REV.  11/16/88) 

q  ****************************************************************** 

C  *  BCREM4  -  THIS  SUBROUTINE  COMPUTES  THE  TEMPERATURES  OF  THE  MID-  * 

C  *  RADIAL  NODES  FOR  THE  END  LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES .  * 

c  ★★★★**★**★★**★★*★*★★★★*★★★*★*★*★*★★★★★*★**★**★★**★*★*★***★★★*★★*** 

C  PROGRAM  LINE  2106 

SUBROUTINE  BCREM4  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ , RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI ,  QPSUBO 
COMMON  /MATSIZ/  NODES , NPHI , NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /P ARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  Tl, T2, T3, T4 , T5 , T6, T7 , T8 , T9, T10 , TINF, TSUR 
C  ***  BODY  *** 

IF  (LAYER. EQ.l)  THEN 
Q  =  QPSUBS 
EPSE  =  EPSUBS 
HE  =  HSUBS 

ELSEIF  ( LAYER. EQ. NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  =  EPSUBN 

HE  =  HSUBN 

ENDIF 

D1  =  (DKP*DZ**2) / (2*DKZ*RAD* *2 *DPHI**2 ) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

D4  =  DZ/DKZ 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  =  1  +  2*FO*D4* (HE  +  D5*EPSE) 

TNEW  =  1/D6*  (Tl  +  2*FO* ( (T2-T3)  +  Dl* (T4+T5-2*T6)  +  D2* (T7-T9) 

1+  D3MT8-T9)  +  D4*(Q  +  HE*TINF  +  D5*EPSE*TSUR)  )  ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  BCREOl  FORTRAN  A  -  (REV.  11/16/88) 

C  ************»»***«************************************************ 

C  *  BCREOl  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  OUTER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  FIRST  INTERMEDIATE* 

C  *  STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE  * 
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C  *  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  ****************************************************************** 

C  PROGRAM  LINE  2216 

SUBROUTINE  BCREOl  (A, B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON  /MATSIZ/  NODES, NPHI, NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
C  ***  BODY  *** 

IF  (LAYER. EQ.l)  THEN 
Q  =  QPSUBS 
EPSE  =  EPSUBS 
HE  =  HSUBS 
A  =  0.D+00 
C  =  -FO 

ELSEIF  ( LAYER. EQ. NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  =  EPSUBN 

HE  =  HSUBN 

A  -  -FO 

C  =  0.D+00 

ENDIF 

Dl  =  (DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI * *2 ) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/ 4) *DR**2) 

D3  *=  DZ/DKZ 

D4  *  (RAD*DZ**2) / (DKZ* (RAD-DR/ 4) *DR) 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

B  =  1  +  FO* ( 1  +  D3* (HE+D5*EPSE)  +  D4* (HSUBO+D5*EPSUBO) ) 

D  =  T1  +  FO* (Dl* (T2+T3-2*T1)  +  D2*  (T4-T1) 

1  +  D3MQ  +  HE*TINF  +  D5*EPSE*TSUR) 

2  +  D4* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  BCRE02  FORTRAN  A  -  (REV.  11/16/88) 

c  ★  *★*★*★★★★*★*★*********★★********■*******★★★★*★•**■**★**★★**★******** 

C  *  BCRE02  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  OUTER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERMED-  * 

C  *  IATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

0  ★*★★★★*★**★★★★*★*★*★★★****★**■****★***★**★**★★******★**★**★★*★***** 

C  PROGRAM  LINE  2265 

SUBROUTINE  BCRE02  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
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COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 
COMMON  /NPOSIT/  INCRAD , IPHI , LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  Tl,  T2,  T3,  T4,  T5,  T6,  T7,  T8 ,  T9,  T10,  TINF,  TSUR 
C  ***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 
Q  -  QPSUBS 
EPSE  -  EPSUBS 
HE  -  HSUBS 

ELSEIF  ( LAYER . EQ . NLAYER )  THEN 

Q  -  QPSUBN 

EPSE  -  EPSUBN 

HE  -  HSUBN 

END  IF 

D1  =  (DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI**2 ) 

D2  =  (DKR* (RADDR/2) *DZ**2) / (DKZ* (RAD-DR/ 4) *DR**2) 

D3  =  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* {RAD-DR/ 4) *DR) 

D5  =  SIGMA* (Tl+TSUR) * (Tl * *2+TSUR* *2 > 

A  =  -Dl*FO 

B  =  1  +  FO* (2  *Dl  +  D3* (HE+D5*EPSE)  +  D4* (HSUBO+D 5* EPSUBO) ) 

C  =  -Dl*FO 

D  =  Tl+FO* ( (T2-T3)  +  D2* (T4-T1)  +  D3*(Q  +  HE*TINF  +  D5*EPSE*TSUR) 
1+  D4* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

C 

C  BCRE03  FORTRAN  A  -  (REV.  11/16/88) 

c  ★★★★★★★★★********************************************************* 

C  *  BCRE03  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  OUTER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERMED-  * 

C  *  IATE  STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

£  **★*★★★★★★*★★*★★******★★★*★*★***★*★******★****★*★*★***★•**★*******★ 

C  PROGRAM  LINE  2311 

SUBROUTINE  BCRE03  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP , DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN,  QPSUBS , QPSUBI,  QPSUBO 
COMMON  /MATSIZ/  NODES, NPH I, NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
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***  BODY  *** 


C 

IF  ( LAYER. EQ.l)  THEN 
Q  -  QPSUBS 
EPSE  =  EPSUBS 
HE  =  HSUBS 
ELSEIF  (LAYER. EQ.NLAYER)  THEN 
Q  =  QPSUBN 
EPSE  -  EPSUBN 
HE  -  HSUBN 
END  IF 

D1  =  (DKP*DZ**2) / (2*DKZ*(RAD-DR/4) *RAD*DPHI**2) 

D2  -  (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  DZ/DKZ 

D4  «  (RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

D5  -  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  -  -D2*FO 

B  -  1  +  FO* (D2  +  D3* (HE+D5*EPSE)  +  D4* (HSUBO+D5*EPSUBO) ) 

C  -  O.D+OO 

D  -  T1  +  FO* ( (T2-T3)  +  Dl* (T4+T5-2*T6) 

1  +  D3* (Q  +  HE*TINF  +  D5*EPSE*TSUR) 

2  +  D4* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 

998  RETURN 

END 

C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  BCRE04  FORTRAN  A  -  (REV.  11/16/88) 

c  ****************************************************************** 

C  *  BCRE04  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT  * 

C  *  THE  OUTER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN’S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  ****************************************************************** 

C  PROGRAM  LINE  2357 

SUBROUTINE  BCRE04  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  <A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON  /MATSIZ/  NODES, NPHI, NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
C  ***  BODY  *** 

IF  (LAYER. EQ.l)  THEN 
Q  -  QPSUBS 
EPSE  -  EPSUBS 
HE  *  HSUBS 

ELSEIF  (LAYER. EQ.NLAYER)  THEN 
Q  -  QPSUBN 
EPSE  -  EPSUBN 
HE  *=  HSUBN 
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ENDIF 

D1  =  <DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI**2) 

D2  «  (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  DZ/DKZ 

D4  *=  (RAD*DZ**2)  /  (DKZ*  (RAD-DR/4)  *DR) 

D5  -  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  =  1  +  2*F0*(  D3* (HE+D5*EPSE)  +  D4* (HSUB0+D5*EPSUB0) ) 

C 

TNEW  -  1/D6MT1  +  2*F0*  (  (T2-T3)  +  Dl* (T4+T5-2*T6)  +  D2*(T7-T8) 

1  +  D3*(Q  +  HE*TINF  +  D5*EPSE*TSUR) 

2  +  D4* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) ) 

C 

998  RETURN 

END 

C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  BCRMI1  FORTRAN  A  -  (REV.  11/16/88) 

Q  ******★***★*★**★****★********★***★*****★**★**★***★★★****★*★****★*★ 

C  *  BCRMI1  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  INNER  SURFACE  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  FIRST  INTERMEDIATE* 

C  *  STEP  (RADIAL  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE  * 

C  *  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES .  * 

r  a***************************************************************** 

C  PROGRAM  LINE  2404 

SUBROUTINE  BCRMIl  (A, B,  C,  D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  =  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

C  ***  NO  D4  REQUIRED  *** 

D5  *  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  =  -FO/2 

B  =  1  +  FO/2* (2  +  D3* (HSUBI  +  D5*EPSUBI)) 

C  =  -FO/2 

D  -  T1  +  FO/2*  (Dl*  (T2+T3-2*T1)  +  D2MT4-T1) 

1  +  D3* (QPSUBI  +  HSUBI *TINF  +  D5*EPSUBI*TSUR) ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  BCRMI2  FORTRAN  A  -  (REV.  09/30/88) 

Q  ★**★★★★***★*★*★*****★*★***★★***★**★*★*★***★*★★**★*★★★*★**★*★*****★ 

C  *  BCRMI2  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 
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c 

c 

c 

c 

c 

c 

c 


c 


c 


*  THE  INNER  SURFACE  OF  THE  MID-LAYERS  <2  THRU  NLAYERS-1 )  * 

*  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERMED-  * 

*  IATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

*  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

*  COORDINATES.  * 

****************************************************************** 
PROGRAM  LINE  2373 

SUBROUTINE  BCRMI2  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DK2 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON  /P ARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EP SUBS, EP SUB I,  EPSUBO,  SIGMA 

COMMON  /TEMPS/  Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 

***  BODY  *** 

D1  -  (DKP*DZ**2) / (DKZ+RAD* (RAD+DR/ 4) *DPHI**2) 

D2  =  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

***  NO  D4  REQUIRED  *** 

D5  *  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  «=  -Dl*FO/2 


B  *  1  +  FO/2* (2*D1  +  D3* (HSUBI  +  D5*EPSUBI) ) 

C  =  -Dl*FO/2 

D  *  Tl  +  FO/2*  (  (T2+T3-2*T4)  +  D2*(T5-T1) 

1  +  D3* (QPSUBI  +  HSUBI*TINF  +  D5*EPSUBI*TSUR) ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  BCRMI3  FORTRAN  A  -  (REV.  11/16/88) 

c  ****************************************************************** 


c 

c 

c 

c 

c 

c 

c 

c 


*  BCRMI3 

* 

* 

* 

* 

* 


-  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 
THE  INNER  SURFACE  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)  * 
OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERMED-  * 
IATE  STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 
COORDINATES.  * 

****************************************************************** 
PROGRAM  LINE  2474 
SUBROUTINE  BCRMI3  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI,  HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ , RAD , RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS,  QPSUBI,  QPSUBO 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  Tl , T2, T3, T4 , T5, T6 , T7 , T8 , T9, Tl 0 , TINF, TSUR 

***  BODY  *** 

D1  =  (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  «  (2*DKR* (RAD+DR/2) *DZ**2> / (DKZ* (RAD+DR/4) *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 
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C  ***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  =  0.D+00 

B  *  1  +  FO/2MD2  +  D3*  (HSUBI  +  D5*EPSUBI)  ) 

C  *  -D2*FO/2 

D  =  T1  +  FO/2* ( (T2+T3-2*T4)  +  Dl*  (T5+T6-2*T7 ) 

1  +  D3* (QPSUBI  +  HSUBI*TINF  +  D5*EPSUBI *TSUR)  ) 

998  RETURN 

END 

C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  BCRMI4  FORTRAN  A  -  (REV.  11/16/88) 

£  *★*★★*★★★*★★*****★★*★★**★★★★★★**★★★***★★★***★***★*★★★******★★*★★★* 

C  *  BCRMI4  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT  * 

C  *  THE  INNER  SURFACE  OF  THE  MID-LAYERS  (2  THRU  NLAYER-1)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN’S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

C  PROGRAM  LINE  2508 

SUBROUTINE  BCRMI4  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z> 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
C  ***  BODY  *** 

Dl  -  (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  ■  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

C  ***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  =  1  +  FO*D3* (HSUBI  +  D5*EPSUBI) 

C 

TNEW  =  1/D6MT1  +  FO*  (  (T2+T3-2*T4)  +  Dl*  (T5+T6-2*T7) 

1  +  D2MT8-T9)  +  D3*  (QPSUBI  +  HSUBI*TINF  +  D5*EPSUBI*TSUR)  )  ) 

C 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

C 

C  BCRMM1  FORTRAN  A  -  (REV.  11/16/88) 

c  ★*■*★***★*****★★*★★*★★★**★*★*****★*★*★*★***★*★★★★★*★**★**■*★*******★ 

C  *  BCRMM1  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  MID-RADII  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  FIRST  INTERMEDIATE* 

C  *  STEP  (RADIAL  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE  * 

C  *  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 
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Q  ****************************************************************** 

C  PROGRAM  LINE  2543 

SUBROUTINE  BCRMM1  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP , DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ , RAD , RMAX, RMIN, THICK, ZMAX,  LPHI 
COMMON  / 1EAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
C  ***  BODY  *** 

D1  *  (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR* *2 ) 

D3  -  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

A  -  -Dl*FO/2 
B  -  1  +  Dl*FO 
C  =  -Dl*FO/2 

D  =  T1  +  FO/2*  (Dl*  (T2+T3-2*T1)  +  D2*  (T4-T1)  +  D3MT5-T1)) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSS3SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  BCRMM2  FORTRAN  A  -  (REV.  10/12/88) 

Q  ****************************************************************** 

C  *  BCRMM2  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  MID-RADII  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERMED-  * 

C  *  IATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE  * 

C  *  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  ****************************************************************** 

C  PROGRAM  LINE  2575 

SUBROUTINE  BCRMM2  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  / CONVEC /  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX,  LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI , QPSUBO 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI , EPSUBO, S IGMA 
COMMON  /TEMPS/  T1 , T2 , T3 , T4 , T5, T6 , T7 , T8 , T9 , T1 0 , TINF, TSUR 
C  ***  BODY  *** 

Dl  =  (DKP*DZ**2)/ (DKZ *RAD* *2 *DPHI * *2 ) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR* *2 ) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

A  =  -Dl*FO/2 
B  =  1  +  Dl*FO 
C  =  -Dl*FO/2 

D  =  T1  +  FO/2* ( (T2+T3-2*T4)  +  D2*(T5-T1)  +  D3*  (T6-T1) ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


156 


c 

C  8CRMM3  FORTRAN  A  -  (REV.  11/16/88) 

£  **★*******★★********■*★★★★**'****★★★*★★★★★*****★'*★**★★*******★★★**** 

C  *  BCRMM3  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  MID-RADII  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERMED-  * 

C  *  IATE  STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE  * 

C  *  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

C  PROGRAM  LINE  2607 

SUBROUTINE  BCRMM3  (A, B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI, QPSUBO 

COMMON  /P ARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
C  ***  BODY  *** 

D1  =  (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ * *2) / (DKZ*RAD*DR* *2) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

A  =  -D2*FO/2 
B  =  1  +  FO/2* (D2+D3) 

C  =  -D3*FO/2 

D  »  T1  +  FO/2* ( (T2+T3-2*T4)  +  Dl*  (T5+T6-2*T7) ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

C 

C  BCRMM4  FORTRAN  A  -  (REV.  11/16/88) 


*  BCRMM4  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT 

*  THE  MID-RADII  OF  THE  MID-LAYERS  (2  THRU  NLAYER-1) 

*  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN’S  METHOD  OF 

*  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL 

*  COORDINATES. 


C  PROGRAM  LINE  2572 

SUBROUTINE  BCRMM4  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP , DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ , RAD , RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI , QPSUBO 
COMMON  /P ARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI , EPSUBO, S IGMA 
COMMON  /TEMPS/  T1 , T2 , T3 , T4 , T5, T6 , T7 , T8 , T9 , T10 , TINF, TSUR 
C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ *RAD**2 *DPHI * *2 ) 

D2  -  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR* *2 ) 
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C  ***  NO  D4,  D5  OR  D6  REQUIRED  *** 

TNEW  -  T1  +  FO* ( (T2+T3-2*T4)  +  Dl* (T5+T6-2*T7 )  +  D2*(T8-T10) 

1  +  D3*  (T9-T10 ) ) 

C 

998  RETURN 

END 

C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  BCRMOl  FORTRAN  A  -  (REV.  11/16/88) 

C  it***************************************************************** 

C  *  BCRMOl  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  OUTER  SURFACE  OF  THE  MID-LAYERS  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  FIRST  INTERMEDIATE* 

C  *  STEP  (RADIAL  DIRECTION)  IN  BRIAN’S  METHOD  OF  FINITE  * 

C  *  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  *★★★*★*★★★***★**★★★****★**★**★**★**★★★★★★★★★*★★*★*★★★*★★***★*★★★** 

C  PROGRAM  LINE  2604 

SUBROUTINE  BCRMOl  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-HfO-Z) 

COMMON  /CONDUC/  DKR, DKP , DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX,  LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QP SUBS, QPSUBI , QPSUBO 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2  =  (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  «  (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

C  ***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  =  -TO/2 

B  =  1  +  FO/2* (2  +  D3* (HSUBO+D5*EPSUBO) ) 

C  =  -FO/2 

D  =  T1  +  FO/2*  (Dl*  (T2+T3-2*T1)  +  D2MT4-T1) 

1  +  D3* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  BCRM02  FORTRAN  A  -  (REV.  11/16/88) 

Q  A***************************************************************** 

C  *  BCRM02  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFICIENTS  FOR  NODES  AT* 

C  *  THE  OUTER  SURFACE  OF  THE  MID-LAYERS  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERMED-  * 

C  *  IATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

£  ****************************************************************** 

C  PROGRAM  LINE  2639 

SUBROUTINE  BCRM02  <A,B,C,D) 
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IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS , EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF , TSUR 
C  ***  BODY  *** 

D1  =  (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2  -  (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  «  (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

C  ***  NO  D4  REQUIRED  *** 

D5  -  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  -  -Dl*FO/2 

B  =  1  +  FO/2* (2*D1  +  D3* (HSUBO  +  D5*EPSUBO) ) 

C  -  -Dl*FO/2 

D  =  T1  +  FO/2* ( (T2+T3-2*T4)  +  D2*(T5-T1) 

1  +  D3* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

c  BCRM03  FORTRAN  A  -  (REV.  11/16/88) 

Q  A***************************************************************** 

C  *  BCRM03  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFICIENTS  FOR  NODES  AT* 

C  *  THE  OUTER  SURFACE  OF  THE  MID-LAYERS  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERMED-  * 

C  *  IATE  STEP  (RADIAL  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

C  ****************************************************************** 

C  PROGRAM  LINE  2674 

SUBROUTINE  BCRM03  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1 , T2 , T3 , T4 , T5, T6 , T7 , T8 , T9, T10, TINF, TSUR 
C  ***  BODY  *** 

D1  »  (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2  -  (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  -  (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

C  ***  NO  D4  REQUIRED  *** 

D5  »  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  =  -D2*FO/2 

B  =  1  +  FO/2* (D2  +  D3* (HSUBO  +  D5*EPSUBO) ) 

C  =  0.D+00 

D  -  T1  +  FO/2* ( (T2+T3-2*T4)  +  Dl* (T5+T6-2*T7) 

1  +  D3* (QPSUBO  +  HSUBO*TINF  +  DS *EPSUBO*TSUR) ) 

998  RETURN 
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END 

C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  BCRM04  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C  *  BCRM04  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT  * 

C  *  THE  OUTER  SURFACE  OF  THE  MID-LAYERS  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  ****************************************************************** 

C  PROGRAM  LINE  2708 

SUBROUTINE  BCRM04  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR, DKP, DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS , HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI , QPSUBO 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/  T1,T2,T3,T4,T5,T6,T7,T8,T9,T10, TINF, TSUR 
C  ***  BODY  *** 

D1  =  (DKP*DZ**2) / <DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2  =  (2*DKR* (RAD-DR/2) *DZ**2)/ (DKZ* (RAD-DR/4) *DR**2) 

D3  -  (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

C  ***  NO  D4  REQUIRED  *** 

D5  ■=  SIGMA* (Tl+TSUR) * <T1**2+TSUR**2) 

D6  =  1  +  FO*D3* (HSUBO  +  D5*EPSUBO) 

TNEW  =  1/D6* (T1  +  FO* ( (T2+T3-2*T4)  +  Dl* (T5+T6-2*T7) 

1  +  D2* (T8-T9)  +  D3* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) ) 

C 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  MAP122  FORTRAN  A  -  (REV.  10/04/88) 

Q  ********************************************************* 

C  *  MAP122  -  SUBROUTINE  TO  MAP  MATRIX  ONE  ONTO  MATRIX  TWO  * 

Q  ********************************************************* 

C  PROGRAM  LINE  2737 

SUBROUTINE  MAP122  (DMAT1 , DMAT2 ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 
COMMON  /MATSIZ/  NLAYER, NODES,  NPHI 

DIMENSION  DMAT1 (III, JJJ, KKK) , DMAT2 (III, JJJ,KKK)  DO  100  LAYER=1 , KKK 
DO  200  IPHI=1,JJJ 
DO  300  INCRAD=1, III 

DMAT2  iINCRAD, IPHI, LAYER)  =  DMAT1 ( INCRAD , IPHI , LAYER) 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 

998  RETURN 

END 
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o  o  o  o  o  o 


csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TRIDAG  FORTRAN  A  (REV.  11/07/88) 


*  TRIDAG 

* 

* 

* 

* 
it 
k 
it 

*********************************************************** 
PROGRAM  LINE  2766 

SUBROUTINE  TRIDAG  (IF,  L,  A,  B,  C,  D,  V) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  A (L) ,B(L) , C (L) , D (L) , V (L) 

DIMENSION  BETA (100) , GAMMA (100) 


SUBROUTINE  FOR  SOLVING  A  SYSTEM  OF  LINEAR,  * 
SIMULTANEOUS  EQUATIONS  HAVING  A  TRIDIAGONAL  * 
COEFFICIENT  MATRIX.  THE  EQUATIONS  ARE  NUM-  * 
BERED  FROM  IF  THROUGH  L,  AND  THEIR  SUBDIAGONAL, * 
DIAGONAL,  AND  SUPER-DIAGONAL  COEFFICIENTS  ARE  * 
STORED  IN  THE  VECTORS  A,  B,  AND  C.  THE  COM-  * 
PUTED  SOLUTION  VECTOR  V(IF)...V(L)  IS  STORED  * 
IN  THE  VECTOR  V.  * 


***  COMPUTE  INTERMEDIATE  ARRAYS  BETA  AND  GAMMA  *** 


BETA ( IF)  =  B (IF) 

GAMMA ( IF)  =  D (IF) /BETA(IF) 

IFP1  =  IF  +  1 
DO  100  I=IFP1,L 

BETA ( I)  =  B(I)  -  A(I) *C(I-1) /BETA(I-l) 

100  GAMMA (I)  =  (D  ( I )  -  A(I) *GAMMA(I-1) ) /BETA(I) 

***  COMPUTE  FINAL  SOLUTION  VECTOR  V  *** 

V (L)  -  GAMMA (L) 

LAST  -  L  -  IF 
DO  200  K=1 , LAST 
I  =  L  -  K 

200  V(I)  -  GAMMA (I)  -  C(I) *V(I+1) /BETA (I) 

RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

c  COMPARE  FORTRAN  A  -  (REV.  11/05/88) 

c  ********************************************************* 

C  *  COMPAR  -  SUBROUTINE  TO  COMPARE  THE  RESULTS  OF  BRIAN’S  * 

C  *  METHOD  AGAINST  THE  RESULTS  OF  THE  EXPLICIT  * 

C  *  METHOD  FOR  A  GIVEN  GEOMETRY  AND  BOUNDARY  * 

C  *  CONDITIONS.  CAN  BE  CALLED  FROM  EVALID  ONLY.  * 

C  ********************************************************* 

C  PROGRAM  LINE  2800 

SUBROUTINE  COMPAR 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  PE (15, 15, 15) 

REAL  TIME 

OPEN  (UNIT=11, FILE= ’ EBCMP ' ) 

OPEN  (UNIT=1 4 , FILE= ' BCRDAT ' ) 
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OPEN  (UNIT=15,FILE='ECRDAT' ) 

ICOUNT  =  0 
JCOUNT  =  0 

READ  (14,*)  NODES, NPHI,NLAYER 
READ  (15,*)  LL, MM, NN 

WRITE  (*,*)  'MATRIX  1  SIZE :', NODES, NPHI , NLAYER  WRITE  (*,*)  'MATRIX 
2  SIZE: ' , LL, MM, NN 
WRITE  (*,*) 

IF  ( (NODES. NE.LL) .OR. (NPHI.NE.MM) .OR. (NLAYER. NE.NN) )  THEN  WRITE 
(*,*)  < ***  ABORTED  COMPARE  -  ARRAY  SIZES  OF  UNEQUAL  LENG  1TH  ***' 

GOTO  998 
END  IF 

1  WRITE  (11,5) 

5  FORMAT  (Tl, 'COMPARISON  OF  BRIAN' 'S  METHOD  TEMPERATURES 

AGAINST  EXP  1LICIT  METHOD  TEMPERATURES '/, Tl, 'EXPRESSED  AS  A 
PERCENTAGE  DIFFEREN  2CE ' //) 

WRITE  (11,*)  ' BCRSAT ' 

WRITE  (11,*) 

WRITE  (11,*)  '***  999.0  INDICATES  ZERO  VALUE  AS  DIVISOR  ***' 

WRITE  (11,*) 

WRITE  (11,*) 

2  READ  (14, *,END=998)  BTIME , BDT IME 
ICOUNT=ICOUNT+l 

ITIME=BTIME 

READ  (15, *,END=998)  ETIME, EDTIME 

JCOUNT=JCOUNT+l 

JTIME=ETIME 

IF  (ITIME.NE. JTIME)  THEN 

WRITE  (*,*)  '***  ABORTED  COMPARE  -  TIME  MISMATCH  ***'  WRITE  (*,*) 

ITIME, EDTIME 

WRITE  (*,*)  JTIME, BDTIME 

GOTO  998 

ENDIF 

DO  100  K=l, NLAYER 
DO  200  1=1, NODES 
DO  300  J=1 , NPHI 
READ  (14,*)  DMAT1 
READ  (15,*)  DMAT2 
IF  (DMAT2.NE.0)  THEN 

PE ( I , J, K)  =  (DMAT1-DMAT2) /DMAT2  *  100  ELSE 
PE  (I,  J,  K)  =  999. 

ENDIF 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 

CALL  PRTARR  (BTIME, BDTIME, PE, NODES, NPHI, NLAYER)  GOTO  2 
998  IF  ( ICOUNT. NE. JCOUNT)  THEN 

WRITE  (*,*)  'COMPAR  -  EOF  ERROR  ON  PROGRAM  LINE  2431  OR  2433' 

WRITE (11,*)  'COMPAR  -  EOF  ERROR  ON  PROGRAM  LINE  2431  OR  2433' 

ENDIF 
CLOSE  (11) 

CLOSE  (14) 

CLOSE  (15) 

RETURN 

END 
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c 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C  SHTFRM  FORTRAN  A  -  (REV.  11/14/88) 

Q  ************************************************************** 

C  *  SHTFRM  -  SUBROUTINE  TO  PRINT  THE  TEMPERATURES  OF  A  DESIG-  * 

C  *  DESIGNATED  NODE  FROM  A  DATA  FILE.  * 

Q  ************************************************************** 

C  PROGRAM  LINE  2871 

SUBROUTINE  SHTFRM  (L,M,N) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI, QPSUBO  COMMON  /TIMES/ 
DELTIM, DTMAX, FINTIM, LIMIT 
DIMENSION  TEMP (15, 15, 15) 

OPEN (UNIT-13 , FILE- ' ANALYT  * ) 

OPEN (UNIT-14,  FILE- * BCRDAT • ) 

OPEN (UNIT-15,  FILE- » BCRSHT ' ) 

C  READ  IN  MATRIX  SIZE 

READ  (14,*)  NODES, NPHI, NLAYER 
C  WRITE  HEADERS  TO  DATA  FILE  15  (ERROR) 

WRITE  (15,*)  ' BCRSAT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION' 

WRITE  (15,*) 

WRITE  (15,*)  'DATA  SAVED  AS  FILE:' 

WRITE  (15,*) 

WRITE  (15,*)  'CPU  TIME:' 

WRITE  (15,*) 

WRITE  (15,*) 'GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS ):’, NODES , NPHI , NLA Y 
1ER 

WRITE  (15,*) 

WRITE  (15,*)  'SELECTED  NODE  FOR  PRINTOUT: ’,L,M,N  WRITE  (15,*) 

WRITE  (15,*)  'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :', DTMAX  WRITE 
(15,*) 

WRITE  (15,*)  'SELECTED  TIMESTEP  (SEC) :' , DELTIM  WRITE  (15,*) 

WRITE  (15,*)  'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):  ’ , FO  WRITE 
(15,*) 

WRITE  (15,*)  'OUTER  SURFACE  HEAT  FLUX  (W/M**2) : ' , QPSUBO  WRITE 
(15, *) 

WRITE  (15,*) 

WRITE  (15,15) 

15  FORMAT  (T33 , 'NODE ' ) 

WRITE  (15,25) 

25  FORMAT  (T5, 'TIME ', T17, 'DELTIM' , T30, 'TEMPERATURE' ) 

C  READ  TIME,  DELTIM  AND  TEMPERATURE  MATRICES  FROM  FILE  14  ( *DATA)  2 
READ  (14, *, END-998)  TIME, DELTIM 
DO  100  K-l, NLAYER 
DO  200  1=1, NODES 
DO  300  J— 1, NPHI 

READ  (14, *, END-997)  TEMP(I,J,K) 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 

WRITE  (15,55)  TIME, DELTIM, TEMP (L,M,N) 

55  FORMAT  (Tl, F9 .2, T15, F8 . 4, T26, F14 . 8) 

GOTO  2 
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997  WRITE  (*,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  864'  WRITE 
(15,*)  ’ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  864'  998  CLOSE  (13) 

CLOSE  (14) 

CLOSE  (15) 

RETURN 

END 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

C 

C  LNGFRM  FORTRAN  A  -  (REV.  11/05/88) 

0  ★  *■*★★*★*★★**★**★★****★★★★★★★★★★★★★*★★★★★*★★★**★*★★**★*★★★★★* 

C  *  LNGFRM  -  SUBROUTINE  TO  PRINT  FULL  MATRIX  OF  TEMPERATURES  * 

C  *  FROM  DATA  FILES.  * 

0  ******★*★★★★*★■*★*★*★★★★★★*★★★★*★★★*★*.★★★*★★★★★*★*★★**★★*★★★* 

C  PROGRAM  LINE  2933 

SUBROUTINE  LNGFRM 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI, QPSUBO 

COMMON  /TIMES/  DELTIM, DTMAX, FINTIM, LIMIT 
DIMENSION  TEMP (15, 15, 15) 

OPEN  (UNIT=11 , FILE= ' BCRLNG 1 ) 

OPEN  (UNIT=14, FILE= ' BCRDAT ' ) 

READ  (14,*)  NODES, NPHI,NLAYER 

WRITE  (11,*)  ' BCRSAT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION' 

WRITE  (11,*) 

WRITE  (11,*)  'DATA  SAVED  AS  FILE:' 

WRITE  (11,*) 

WRITE  (11,*)  'CPU  TIME:' 

WRITE  (11,*) 

WRITE  (11,*)  'GRID  SIZE  (RADIAL, PHI , Z  DIRECTIONS) :' , NODES , NPHI , NLA 
IYER 

WRITE  (11,*)  v 

WRITE  (11,*)  'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :’, DTMAX  WRITE 
(11,*) 

WRITE  <11, *>  'SELECTED  TIMESTEP  ( SEC) :', DELTIM  WRITE  (11,*) 

WRITE  (11,*)  'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):  ' , FO  WRITE 

(11, *) 

WRITE  (11,*)  'SURFACE  HEAT  FLUX  ( W/M* *2) :', QPSUBO  WRITE  (11,*) 

WRITE  (11,*) 

1  READ  (14, *,END=998)  TIME, DTIME 
DO  100  K=1 , NLAYER 
DO  200  1=1, NODES 
DO  300  J=l, NPHI 

READ  (14, *,END=997)  TEMP(I,J,K) 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 

CALL  PRTMAT  (TIME, DTIME, TEMP, NODES, NPHI, NLAYER)  GOTO  1 
997  WRITE  (6,996)  I,J,K 

996  FORMAT  (IX, 'LNGFRM:  READ  BEYOND  DATA  IN  ‘DATA  (I, J, K) ' , 314)  998 
REWIND  14 
CLOSE  (11) 

RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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* 


c 

C  PRTMAT  FORTRAN  A  -  (REV.  11/04/88) 

C  ********************************************************** 

C  *  PRTMAT  -  SUBROUTINE  TO  PRINT  THREE  DIMEND IONAL  MATRIX  * 

C  *  TO  FILE  11  (‘LONG) .  * 

C  ********************************************************** 

C  PROGRAM  LINE  2984 

SUBROUTINE  PRTMAT  (TIME, DTIME,DMAT, NODES, NPHI,NLAYER)  IMPLICIT 
DOUBLE  PRECISION  (A-H,0-2) 

DIMENSION  DMAT(15, 15,  15) 

WRITE  (11,15)  TIME,DTIME 

15  FORMAT  (Tl, 'TIME  =  ',F9.3,'  SEC' , T30, 'TIME  INCREMENT  -  ',F9.3,'  SE 
1C) 

DO  100  K=l, NLAYER 
WRITE (11, 10)  K 

10  FORMAT  (//Tl, 'NODE: ',T45, 'LAYER  NUMBER:  ',14/)  DO  200  1=1, NODES 

WRITE  (11,25)  I, (DMAT (I, J, K) , J=1,NPHI) 

25  FORMAT  (Tl, 13, T10, 4 (D16 . 10, IX) ) 

200  CONTINUE 

100  CONTINUE 

WRITE  (11,*) 

WRITE  (11,*) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  PRTARR  FORTRAN  A  -  (REV.  11/04/88) 

Q  ********************************************************** 

C  *  PRTARR  -  SUBROUTINE  TO  PRINT  THREE  DIMENDIONAL  MATRIX  * 

C  *  TO  FILE  11  (*LONG).  * 

Q  ********************************************************** 

C  PROGRAM  LINE  3011 

SUBROUTINE  PRTARR  (TIME, DTIME, DMAT, NODES , NPHI , NLAYER)  IMPLICIT 
DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  DMAT (15, 15, 15) 

WRITE  (11,15)  TIME, DTIME 

15  FORMAT  (Tl, 'TIME  =  \F9.3,'  SEC ', T30 ,' TIME  INCREMENT  =  ’,F9.3,'  SE 
1C) 

DO  100  K=l, NLAYER 
WRITE (11, 10 )  K 

10  FORMAT  (//Tl, 'NODE: ' , T4 5, 'LAYER  NUMBER:  ',14/)  DO  200  1=1, NODES 

WRITE  (11,25)  I, (DMAT (I, J, K) , J=1 , NPHI ) 

25  FORMAT  (Tl, 13, T10, 4 (F9 . 3, IX) ) 

200  CONTINUE 

100  CONTINUE 

WRITE  (11,*) 

WRITE  (11,*) 

998  RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

C 

C  ERROR  FORTRAN  A  -  (REV.  11/05/88) 
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Q  ★**★*★****★*★★★****★*★*★**★*★***★*★****★**★***★***★★**★**★**** 

C  *  ERROR  -  SUBROUTINE  TO  COMPUTE  ERROR  FOR  AND  PRINT  TEMPERA-  * 

C  *  TURES  OF  A  DESIGNATED  NODE  FROM  A  VALIDATION  DATA  * 

C  *  FILE.  * 

Q  ***★★*****★*★★★★★★***★**★★*★*★★*★*★**★★★******★★***★*★****★★*★ 

C  PROGRAM  LINE  3039 

SUBROUTINE  ERROR  (L, M, N) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON  /TIMES/  DELTIM, DTMAX, FINTIM, LIMIT 
DIMENSION  TEMP (15, 15, 15) 

REAL  TIME 

OPEN (UNIT=13, FILE" ' ANALYT 1 ) 

OPEN (UNIT=14, FILE* 1 BCRDAT 1 ) 

OPEN (UNIT=15, FILE® 1 BCRERV* ) 

IF  ( ( (QPSUBO. GT. 1352) .AND. (QPSUBO. LT. 1354) ) .OR. ( (QPSUBO .GT . 14999) . 

1AND. (QPSUBO.LT. 15001) ) )  THEN 

CONTINUE 

ELSE 
GOTO  998 
END  IF 

C  READ  IN  MATRIX  SIZE 

1  READ  (14,*)  NODES, NPHI, NLAYER 

C  WRITE  HEADERS  TO  FILE  15  ( *ERROR) 

WRITE  (15,*)  ' BCRSAT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION' 

WRITE  (15,*) 

WRITE  (15,*)  'DATA  SAVED  AS  FILE:’ 

WRITE  (15,*) 

WRITE  (15,*)  'CPU  TIME:' 

WRITE  (15,*) 

WRITE  (15,*) 'GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS) :' , NODES, NPHI, NLAY 
1ER 

WRITE  (15,*) 

WRITE  (15, *) 'SELECTED  GRID  POINT  :',L,M,N 
WRITE  (15,*) 

WRITE  (15,*)  'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :', DTMAX  WRITE 
(15,*) 

WRITE  (15,*)  'SELECTED  TIMESTEP  (SEC) :', DELTIM  WRITE  (15,*) 

WRITE  (15,*)  'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):  ' , FO  WRITE 
(15,*) 

WRITE  (15,*)  'OUTER  SURFACE  HEAT  FLUX  (W/M* *2 ):', QPSUBO  WRITE 
(15,*) 

WRITE  (15,*) 

WRITE  (15,15) 

15  FORMAT  (T33, 'NODE', T48, 'ANALYTIC', T64, ’PERCENT')  WRITE  (15,25) 

25  FORMAT  (T5, ' TIME ', T17, 'DELTIM' , T30, 'TEMPERATURE ', T46, ' TEMPERATURE ' 
1, T65, 'ERROR'/) 

C  READ  TIME,  DELTIM  AND  TEMPERATURE  MATRICES  FROM  FILE  14  ( *DATA) 

2  READ  (14, *, END-998)  TIME, DELTIM 
DO  100  K=l, NLAYER 

DO  200  1-1, NODES 
DO  300  J=1,NPHI 

READ  (14, *,END=995)  TEMP(I,J,K) 

300  CONTINUE 

200  CONTINUE 
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100  CONTINUE 

C  READ  IN  APPROPRIATE  ANALYTIC  SOLUTIONS  FROM  FILE  13  (ANALYT) 

IF  (QPSUBO.LT. 1400)  THEN 
READ  (13, 35, END-996)  EXACT 
35  FORMAT  (T19,F14.8) 

ELSE 

READ  (13, 45,END=997)  EXACT 
45  FORMAT  (T39,F14.8) 

ENDIF 

C  COMPUTE  PERCENT  ERROR  AND  WRITE  TO  FILE  15  (ERROR) 

PE  *  (EXACT-TEMP (L,M,N) ) /EXACT  *  100. 

WRITE  (15,55) 

TIME, DELTIM, TEMP (L,M,N) , EXACT, PE  55  FORMAT 

(T1,F9.2,T15,F8 .4,T26,F14 . 8,T41,F14 .8,T61,F9.3)  GOTO  2 

995  WRITE  (*,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2515' 

WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2525' 

996  WRITE  (*,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2521' 

WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2521' 

997  WRITE  (*,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2514' 

WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2524' 

998  CLOSE  (13) 

CLOSE  (14) 

CLOSE  (15) 

RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C  CMPSHT  FORTRAN  A  -  (REV.  11/22/88) 

c  ********************************************************* 

C  *  CMPSHT  -  SUBROUTINE  TO  COMPARE  THE  RESULTS  OF  BRIAN'S  * 

C  *  METHOD  AGAINST  THE  RESULTS  OF  THE  EXPLICIT  * 

C  *  METHOD  FOR  A  GIVEN  GEOMETRY  AND  BOUNDARY  * 

C  *  CONDITIONS.  DATA  SAVED  IN  SHORT  FORMAT.  * 

C  *  NOTE  -  CALLED  FROM  BCRV  ONLY.  * 

c  *★****★★*★**★★*★*★**★*★★****★***★****★★**★★**★**★******** 

C  PROGRAM  LINE  3132 

SUBROUTINE  CMPSHT 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

REAL  TIME 

OPEN  (UNIT=14 , FILE= ' BCRDAT ' ) 

OPEN  (UNIT—15, FILE- 'ECRDAT ' ) 

OPEN  (UNIT=17, FILE- ' CMPSHT ' ) 

I COUNT  =  0 
JCOUNT  =  0 

READ  (14,*)  NODES, NPHI,NLAYER 
READ  (15,*)  LL, MM, NN 

WRITE  (*,*)  'MATRIX  1  S IZE :', NODES , NPHI , NLAYER  WRITE  (*,*)  'MATRIX 
2  SIZE: ' , LL, MM, NN 
WRITE  (*,*) 

IF  ( (NODES .NE.LL) .OR. (NPHI .NE. MM) .OR. (NLAYER. NE.NN) )  THEN 
WRITE  (*,*)  '***  ABORTED  COMPARE  -  ARRAY  SIZES  OF  UNEQUAL  LENGTH 

*  »  *  » 

GOTO  998 

ENDIF 
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1  WRITE  (17,15) 

15  FORMAT  (Tl, 'COMPARISON  OF  BRIANS  METHOD  TEMPERATURES  AGAINST  EXPLI 
1CIT  METHOD  TEMPERATURES '/, Tl EXPRESSED  AS  A  PERCENTAGE 
DIFFERENCE  2.'/) 

WRITE  (17,*)  ' BCRSAT  SHORT  FORMAT' 

WRITE  (17,*) 

WRITE  (17,*)  'SAVED  AS  FILE:' 

WRITE  (17,*) 

WRITE  (17,*)  'CPU  TIME:' 

WRITE  (17,*) 

WRITE  (l-7,*)  '***  999.0  INDICATES  ZERO  VALUE  AS  DIVISOR 
***'  WRITE  (17,*) 

WRITE  (17,*) 

WRITE  (17,25) 

25  FORMAT  (T33, 'EXPLICIT ', T48 ,' BRIANS ',  T64,  'PERCENT ' )  WRITE  (17,35) 

35  FORMAT  (T5, 'TIME', T30, 'TEMPERATURE', T46, 'TEMPERATURE', T62, 'DIFFERE 
1NCE ’ / ) 

2  READ  (14, *,END=998)  BTIME, BDTIME 
ICOUNT=ICOUNT+l 

ITIME=BTIME 

READ  (15, *,END=998)  ETIME, EDTIME 
JCOUNT=JCOUNT+l 
J  rIME=ETIME 

II  (ITIME.NE. JTIME)  THEN 

WRITE  (*,*)  '***  WARNING  -  TIME  MISMATCH  IN  CMPSHT  ***' 

WRITE  (*,*)  ITIME, BTIME 
WRITE  <*,*)  JTIME, ETIME 
ENDIF 

DO  100  K=1 ,  NLAYER 
DO  200  1=1, NODES 
DO  300  J=1 , NPHI 
READ  (14,*)  DMAT1 
READ  (15,*)  DMAT2 

IF  ( ( I . EQ . NODES) .AND. (J.EQ.2) .AND. (K . EQ . NLAYER) .AND. 

1 (DMAT2.NE.0) )  THEN 

PE  =  (DMAT1-DMAT2) /DMAT2  *  100 

WRITE  (17,45)  BTIME, DMAT2,DMAT1, PE  45  FORMAT 

(T1,F9.2,T26,F14.8,T41,F14.8,T61,F9.3)  ELSE 
PE  =  999. 

ENDIF 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 
GOTO  2 

998  IF  ( I COUNT . NE . JCOUNT )  THEN 

WRITE  (*,*)  'CMPSHT  -  EOF  ERROR  ON  PROGRAM  LINE  2431  OR  2433' 

WRITE (17,*)  'CMPSHT  -  EOF  ERROR  ON  PROGRAM  LINE  2431  OR  2433' 

ENDIF 
CLOSE  (14) 

CLOSE  (15) 

CLOSE  (17) 

RETURN 

END 
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APPENDIX  G 

APPLICATION  MODEL  CHARACTERISTICS 

A  ASSUMPTIONS* 

1.  Satellite 

•  Three-axis  stabilized 

•  Orbit  lies  within  and  z-axis  normal  to  the  plane  of  the  ecliptic 

2.  Earth 

•  Atmosphere  is  a  diffuse  scatterer  of  solar  radiation 

•  Albedo  coefficient  is  0.30  (nominal) 

•  Emitted  infrared  heat  flux  is  237  W/m2 

•  Shadow  appears  cylindrical  from  low  orbits 

3.  Sun 

•  Diffuse,  blackbody  emitter  of  radiation 


R  OTHER  PARAMETERS* 

Internal  Heat  Loading: 

Solar  flux: 

Earth’s  IR: 

Albedo  coefficient: 

Temperature  of  deep  space: 

Geometric  shape  factor: 

(flat  plate,  320  km) 

Surface  absorptivity: 

(white  paint) 


=  1000  W  (avg) 
Q" niar  =  1353  W/m2 

<?"/*  =  237  W/m2 
albedo  =  0.30 
Tsur  =  4  K 
F  =  0.31 

a  =  0.4  (nominal) 


169 


Surface  emissivity: 
(white  paint) 


e  =  0.9 


Operating  Limits 

Non-op /tum-on  Operating 

40/+40  K  -15/+40  K 


1 


5 

Figure  15.  Orbit  Time  Numbering  Sequence 


FLUX  CONDITIONS 

TIME  FLUX  CONDITION 

0<t  <t]  </'N  =  as(f'„  cos  (ax') 

<fs  =  <? cos  (ox')  J 

4'0  =  0.5a 0  sin  (ox) 
li -*  <{ 2  4  *  ~  0 

(fs=as  {  ^Eir  +  L  a  + COS  («  )  ) 

(f0=  O.5a0<70sin  (ox) 

i2£r'<r3  <f\  =  0 
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<To=  o 

1 3^  ''<'4  <f'N=0 

. 

^o  =  °*5«olU+^- 
'1- 

tA<  t  <  tb  <?"*  =  0 

</>«,{  ^4*  <f 

c/'o=0.5aocf'am  |  sir 

where  times  in  seconds  are: 

ri  =  0 

t2  = 1360 
r3  =  1629 
tA  =  3757 
r5  =  3811 
r.  = 4080 

o 

*  Taken  from  Agrawal  [Ref.  12] 


sin  (fa  ) 


,  sin  (ax  )J 

UA-t) 
exp  — - - 


.  sin  ar')|} 
(ox')\ 


171 


LIST  OF  REFERENCES 


1.  Incropera,  F.  P.,  and  DeWitt,  D.  P.,  Introduction  to  Heat  Transfer , 
John  Wiley  and  Sons,  New  York,  1980. 

2.  Ozisik,  M.  N.,  Heat  Conduction,  John  Wiley  and  Sons,  New  York, 
1980. 

3.  Brian.  P.  L.  T.,  “A  Finite -Difference  Method  of  High-Order  Accu¬ 
racy  for  the  Solution  of  Three-Dimensional  Transient  Heat  Con¬ 
duction  Problems,”  American  Institute  of  Chemical  Engineers 
Journal,  pp.  367-370,  vol.  7,  no.  3,  September  1961. 

4.  Luther,  H.  A.,  and  Wilkes,  J.  D.,  Applied  Numerical  Methods,  John 
Wiley  and  Sons,  New  York,  1969. 

5.  Bogert,  B.  P.,  “Some  Roots  of  an  Equation  Involving  Bessel  Func¬ 
tions,”  Journal  of  Math  and  Physics,  pp.  102-105,  vol.  30,  no. 
102,  1951. 

6.  “IMSL  Routine  Name— MMBSJO,"  IMSL  Inc.,  1978. 

7.  “IMSL  Routine  Name— MMBSJ1,”  IMSL  Inc.,  1978. 

8.  “IMSL  Routine  Name— MMBSYN,”  IMSL  Inc.,  1978. 

9.  “IMSL  Routine  Name— MMBSKO,"  IMSL  Inc.,  1978. 

10.  “IMSL  Routine  Name— MMBSK1,”  IMSL  Inc.,  1978. 

11.  Kaeser,  D.  S.,  Code  Optimization  of  Speckle  Reduction  Algorithms 
for  Rocked  Motor  Program  Image  Processing,  M.S.M.E.  Thesis, 
Naval  Postgraduate  School,  Monterey,  CA,  December  1988 

12.  Agrawal,  B.  N.,  Design  of  Geosynchronous  Spacecraft,  Prentice- 
Hall,  Englewood  Cliffs,  1986. 


172 


INITIAL  DISTRIBUTION  LIST 


1.  Defense  Technical  Information  Center 
Cameron  Station 

Alexandria,  VA  22304-6145 

2.  Mr.  Duane  Embree 

Naval  Weapons  Support  Center 
Code  6042 
Crane,  IN  47522 

3.  Mr.  Pete  Wilhelm 

Navy  Center  for  Space  Technology,  Code  8000 
Naval  Research  Laboratory 
4555  Overlook  Avenue 
Washington,  D.C.  20375-5000 

4.  Library,  Code  0142 
Naval  Postgraduate  School 
Monterey,  CA  93943-5002 

5.  Professor  R.  Panholzer,  Code  72 

Department  of  Electrical  and  Computer  Engineering 
Naval  Postgraduate  School 
Monterey,  CA  93943-5002 

6.  Professor  A.  J.  Healey,  Code  Hy 
Department  of  Mechanical  Engineering 
Naval  Postgraduate  School 
Monterey,  CA  93943-5004 

7.  Professor  Y.  Joshi,  Code  69Ji 
Department  of  Mechanical  Engineering 
Naval  Postgraduate  School 
Monterey,  CA  93943-5004 

8.  LCDR  K.  R.  Heinz,  USN 
SEAL  Delivery  Team  ONE 
Naval  Amphibious  Base  Coronado 
San  Diego,  CA  92155-5000 


173 


2 


9.  Professor  A.  D.  Kraus,  Code  62  Ks 
Department  of  Electrical  and  Computer  Engineering 
Naval  Postgraduate  School 
Monterey,  CA  93943-5004 

10.  Professor  M.  A.  Melich,  Code  61  Mm  1 

Department  of  Physics 

Naval  Postgraduate  School 
Monterey,  CA  93943-5004 

11.  LCDRJ.A.  Watson,  USN  1 

331  East  T  Street 

Benicia,  CA  94510-2256 


yr 


» 


174 


